In Spalte A stehen von Zeile 2 bis 101 Formeln. Zum Teil ist der Wert der Formeln 0. Diese Zeilen möchte ich per Button oder Ereignis SelektionChange löschen. Wer kann helfen?
Gruß
armin
Option Explicit
Sub LeereZellenWennNull()
Dim rngC As Range
For Each rngC In Range("A2:A100")
If rngC.Value = 0 Then
rngC.FormulaR1C1 = ""
rngC = ""
End If
Next rngC
End Sub
Je nach Deinen Anforderungen, ist dieses Makro im Blattordner oder Standartordner des Projektes abzulegen.