verfaßt von manes 
, Köln, 07.02.2020, 19:48:51
Hallo
Hier mal ein Schnipsel (ohne viel Aufwand), wie man das mit dem Autofilter machen könnte:
Sub KopiereFilterergebnis()
Dim r_Daten As Range
Dim r_Gefiltert As Range
Set r_Daten = Worksheets("Daten").Range("A1").CurrentRegion
r_Daten.AutoFilter field:=3, Criteria1:="Köln"
Set r_Gefiltert = r_Daten.SpecialCells(xlCellTypeVisible)
r_Gefiltert.Copy Destination:=Worksheets("Ziel").Range("C3")
End Sub
Hierdurch wäre es nicht nötig, jede einzelne Zeile zu überprüfen und einzeln zu kopieren.
In dem Beispiel wird aus den Quelldaten alles, was in Spalte 3 die Eintragung Köln aufweist angeiegt, alles andere ausgeblendet und danach die eingeblendeten Zellen an das Ziel kopiert. Nachher müsste man das Autofilter dann evtl. wieder deaktivieren.
FFPX
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: