kennt jemand einen schnelleren Weg um ans Ziel zu kommen?
Das dauert zulange wenn alle Zellen ausgefüllt sind und 80% eine 0 beinhalten.
Über Hilfe wäre ich wie immer dankbar
Sub null_löschen()
Dim Zelle As Range
a:
For Each Zelle In Range("Z2:BH300")
If Zelle.Value = "0" Then
Zelle.Delete shift:=xlToLeft
GoTo a
End If
Next Zelle
End Sub
LGRonny