brauche nochmal Hilfe. Bastle als Nicht-VBA-ler ewig an nachstehendem Code.
Teil 1 (Filtern / Kopieren) funktioniert aber der Teil 2 da geht nix.
Der kopierte Inhalt, soll als Wert in die nächste freie Zelle der Spalte P ab Zeile 5 eingefügt werden.
ActiveSheet.ListObjects("TabVS").Range.AutoFilter Field:=33, Criteria1:=""
Range("TabVS[[ALNR]:[ship-method]]").Copy
Sheets("PNR").Cells(5, 16).End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Für Hilfe schon mal besten Dank,
Gruß Thorsten