mit welchem Makro kann ich aus dem Bereich B1:B1000 der aktiven Tabelle den Zellinhalt aller Zellen mit der Zahl 0 entfernen.
Im Voraus schon einmal vielen Dank für eure Unterstützung.
mfg
Fritz
Sub nm()
With Range("B1:B1000")
.Replace What:=0, Replacement:=""
End With
End Sub
Gruß HajoSub nm()
ActiveSheet.Unprotect
With Range("B1:B1000")
.Replace What:="0", Replacement:=""
End With
ActiveSheet.Protect
End Sub
Gruß Matthias