Hallo Ihr Lieben und Guten Morgen,
mit nachstehendem Code wird aus dem angegebenen Bereich der Inhalt einer Zeile gelöscht, wenn die entsprechende Zelle in Spalte A leer ist. Nun möchte ich jedoch den zu löschenden Bereich so einschränken, dass die gesamte Zeile bis auf die Zellen in Spalte K und L gelöscht werden.
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("A1000")), Range("A1000").End(xlUp).Row + 1, 1000)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 1) = "" Then
Cells(lngR, 1).EntireRow.ClearContents
End If
Next
Kann da jemand helfen?
Vielen Dank
Peter S.