Ansicht:   

#436738 Excel VBA Daten verschieben nach bestimmten Bedingungen (pc.coding)

verfaßt von manes zur Homepage 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:

Ansicht:   
Auf unserer Web-Seite werden Cookies eingesetzt, um diverse Funktionalitäten zu gewährleisten. Hier erfährst du alles zum Datenschutz