Leere Zeilen Löschen
12.02.2015 14:57:57
Michael
Ich habe folgendes Script in meiner Datei, welches bewirkt, dass alle Zeilen in denen eine "0" steht gelöscht werden.
DAs funktioniert aber leider nur, solange ich keinen "Command-Button" oder keine "TextBox" im Blatt habe.
Sub DeleteFilterData()
With ActiveSheet
On Error Resume Next
If .AutoFilterMode = False Then .Cells.AutoFilter
.Range("A1").AutoFilter Field:=32, Criteria1:="0"
.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow. _
Delete
ActiveSheet.ShowAllData
End With
End Sub
Jetzt habe ich aber eine TextBox, die ich auch nicht löschen möchte.
Weiß jemand Rat?
VG Michael
Anzeige