ich möchte die gefilterten Daten löschen.
Wie kann ich aber verhindern das mit die erste Zeile
gelöscht wird, die soll bleiben.
Range("A1").AutoFilter Field:=1, Criteria1:="3"
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Delete
Sub wech()
Dim B1 As Range, B2 As Range
Set B1 = [a1].CurrentRegion
Set B2 = B1.Offset(1, 0).Resize(B1.Rows.Count - 1, B1.Columns.Count)
Set B1 = B2.SpecialCells(xlCellTypeVisible)
B1.Delete shift:=xlUp
End Sub