Nulstellen löschen
04.07.2005 09:06:05
Richard
brauche eure Hilfe, und zwar ich möchte alle Nullstellen in einem Bereich löschen, dazu habe ich folgendes geschrieben aber es funktioniert nicht, kann mir vielleicht jemand weiter helfen?
wäre sehr dankbar
Sub Makro1()
Dim Bereich As Range
Dim zelle As Range
ActiveWorkbook.Worksheets(1).Activate
Set Bereich = Range(Cells(2, 23), Cells(2, 24)).End(xlUp).Rows
For Each zelle In Bereich
If zelle.Value = 0 Then
zelle.ClearContents
Else
End If
Next zelle
End Sub
gruß
Richard