Hallo zusammen,
der von mir genutzte AdvancedFilter spuckt plötzlich falsche Ergebnisse raus und filtert nicht.
Mein Problem:
Ich lese aus diversen PP-Folien Schlüssel aus, speichere diese und trage sie in die erste Spalte eines leeren Sheets ein. In einem anderen Sheet habe ich eine (formlose) Tabelle, in der sehr viel mehr Schlüssel mit entsprechenden Daten drin stehen. Ich möchte nun alle Zeilen mit den Schlüsseln aus der PP inklusive Daten in das leere Sheet übertragen. Dazu habe ich bisher folgenden Code genutzt:
'Meine formlose Tabelle, in der die Zeilen ausgelesen werden sollen
Set rngData = wksErgeb.Range(wksErgeb.Cells(17, 1), _
wksErgeb.Cells(wksErgeb.Cells(Rows.Count, 2).End(xlUp).row, _
wksErgeb.Cells(17, Columns.Count).End(xlToLeft).column))
'Meine Schlüssel, nach denen gesucht werden soll
Set rngCrit = wksppData.Range(wksppData.Cells(1, 1), _
wksppData.Cells(wksppData.Cells(Rows.Count, 1).End(xlUp).row, 1))
'Der Filter
rngData.AdvancedFilter xlFilterCopy, rngCrit, wksppData.Range("B1"), True
Ausgespuckt kriege ich jedoch nur Käse. Da die Criteria-Schlüssel immer noch links neben den eingefügten Daten aus dem Filter stehen, sehe ich dass der Criteria-Schlüssel und der gefilterte Schlüssel nicht übereinstimmen.
Hat jemand eine Idee, wo mein Fehler ist?
Vielen Dank im Vorraus.