Option
Explicit
Public
Sub
Löschen()
Dim
raZelle
As
Range, raGesamt
As
Range
Application.ScreenUpdating =
False
With
Worksheets(
"Tabelle1"
)
For
Each
raZelle
In
.Range(
"B2:CW2"
)
If
raZelle <>
""
Then
If
IsNumeric(raZelle)
Then
If
raZelle.Value = 0
Then
If
raGesamt
Is
Nothing
Then
Set
raGesamt = raZelle
Else
Set
raGesamt = Union(raGesamt, raZelle)
End
If
End
If
End
If
End
If
Next
raZelle
If
Not
raGesamt
Is
Nothing
Then
raGesamt.EntireColumn.Delete
End
If
End
With
Set
raGesamt =
Nothing
End
Sub