Lösch-Code funzt, aber ich möchte Einschränkung
17.10.2005 17:35:52
Peter
mit dem nachstehenden Code lösche ich den Inhalt aller Zeilen des definierten Bereiches, in denen die Zelle der Spalte A leer ist. Dies funktioniert auch absolut fehlerfrei, jedoch möchte ich nun erreichen dass der Inhalt der Spalte C und D nicht gelöscht wird...Wer kann da eingreifen?
Sub Loeschen()
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("A100")), Range("A100").End(xlUp).Row + 1, 100)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 1) = "" Then
Cells(lngR, 1).EntireRow.ClearContents
End If
Next
End Sub
Vielen Dank
Peter S.