Filter-Ergebnisse per VBA ausschneiden
06.09.2017 16:11:12
Martin
ich habe eine größere Tabelle, die ich per VBA filtere, was soweit auch gut klappt.
Nun möchte ich gerne das Ergebnis eines Filters, d.h. alle nach Anwendung des Filters sichtbaren Zeilen, ausschneiden und auf einem anderen Blatt einfügen.
Nach dem Filtern sollen die entsprechenden Zeilen also statt auf Blatt 1 auf Blatt 2 erscheinen, ohne dass dabei auf Blatt 1 leere Zeile entstehen.
Blatt 2 ist davor bis auf die Überschriften leer, d.h. das Einfügen kann immer ab Zeile 2 erfolgen.
Ich habe es mit folgendem Ansatz probiert, der aber nicht funktioniert.
Kann mir jemand sagen, wie ich so etwas erreichen kann ?
Hier mal eine stark vereinfachte Beispieldatei:
https://www.herber.de/bbs/user/116043.xlsm
Mein Code (vereinfacht):
Dim varLastRow As Long
With Worksheets(1)
varLastRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("B:B").AutoFilter Field:=2, Criteria1:="DE"
.Range("B2:B" & varLastRow).SpecialCells(xlCellTypeVisible).EntireRow.Cut
Worksheets(2).Range("A2").Insert Shift:=xlDown
End With
Vielen Dank im Voraus für Eure Hilfe, Martin