wie muss der code geändert werden, um folgendes Ergebnis zu erreichen: Durchsuche die Spalten A u. B. und wenn Inhalt, dann lösche Inhalt der zelle A u. B, Inhalte in anderen Spalten sollen nicht gelöscht werden.
https://www.herber.de/bbs/user/55680.xls
Danke schön für Eure Hilfe
Private Sub bereich_lschn()
Dim zeile As Integer
Dim lLetzte As Integer
With Tabelle1
lLetzte = .Range("A65536:B65536").End(xlUp).Row
For zeile = lLetzte To 2 Step -1
If .Cells(zeile, 1).Value "" Then
Cells.ClearContents
End If
Next zeile
End With
Gruss
Bernhard