Lösche die ersten drei Zeilen (inkl Button).

Erzeuge ein zweites Arbeitsblatt.

Führe folgenden Code aus:

Sub Main()
 
    Dim adodbRS     As Object
    
    Set adodbRS = CreateObject("ADODB.Recordset")
    
    With adodbRS
        .Open "SELECT [Materialnummer] FROM `Tabelle1$` WHERE [Materialnummer] NOT IN (SELECT [Materialnummer] FROM `Tabelle1$` WHERE [Buchungsart]='Rückgabe')", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
        Worksheets(2).Range("A1").CopyFromRecordset adodbRS
        .Close
    End With
End Sub

Jetzt hast Du Dein Ergebnis.

Alles andere kannst Du in Eigenleistung noch einpflegen ;)