Delete X
04.03.2016 10:58:09
MaBlu
wie muss ich das Makro umschreiben wenn ich nur im Bereich (D1:D20) die Zellen löschen will die ein "x" haben?
Sub deletex()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.Value = "x" Then
zelle.ClearContents
End If
Next
End Sub
so lösche ich die ganze Tabelle alle x?
Freundliche Grüsse MaBlu
Anzeige