15.05.2016, 06:57
so, hat sich erledigt. Dank an die Tipps.
Habe es nun doch mit dem Spezialfilter geschaft. Da ja Verbundene Spalten vorhanden waren, aber gott sei Dank die Spalten darunter nicht geschützt waren (hat mein Vogänger wohl übersehen) habe ich die Überschriften allen runterkopiert. Nun klappt das hiermit
Workbooks("Flights.xlsm").Sheets("FlightEntry").Range("B4:EE408").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B4:B5"), CopyToRange:=Range("A64"), Unique:=False
Trotzdem danke nochmal
Gruß
Bruno
Habe es nun doch mit dem Spezialfilter geschaft. Da ja Verbundene Spalten vorhanden waren, aber gott sei Dank die Spalten darunter nicht geschützt waren (hat mein Vogänger wohl übersehen) habe ich die Überschriften allen runterkopiert. Nun klappt das hiermit
Workbooks("Flights.xlsm").Sheets("FlightEntry").Range("B4:EE408").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B4:B5"), CopyToRange:=Range("A64"), Unique:=False
Trotzdem danke nochmal
Gruß
Bruno