Filterergebnis kopieren
30.10.2020 11:21:45
Sven
mit folgendem Abschnitt filtere ich nicht markierte Zeilen weg, um sie dann zu kopieren.
Markierung erfolgt durch einen EIntrag in Spalte A.
Dabei soll weder die Überschriftzeile 1 noch die Markierungsspalte A kopiert werden. Stellt sich raus, auch die erste Datenzeile wird nicht kopiert. Was läuft mit dem Offset genau falsch?
Danke!
With .ListObjects("Abfrage_FR")
.ShowAutoFilter = False
.ShowAutoFilter = True
.Range.AutoFilter Field:=1, Criteria1:=""
With .DataBodyRange
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy
End With
End With
With ThisWorkbook.Worksheets(strStand)
.Cells(2, "A").PasteSpecial Paste:=xlPasteValues
End With
Anzeige