Ich verstehe hier etwas nicht: Das folgende Script blendet die Spalten H-I ein, filtert, und soll dann die Spalten H-I wieder ausblenden. Es werden aber die Spalten G-J ausgeblendet. Weiß da jemand Rat?
Columns("H:I").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
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
Danke fürs Lesen.
ActiveSheet.ShowAllData
End With
Columns("H:I").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select