der nachfolgende Code löscht Zeilen, wenn die Zelle in Spalte C leer ist.
Was muss im Code verändert werden, damit die Zeilen gelöscht werden, aber nur
bis zur ersten nicht leeren Zelle in Spalte C? D.h. von unten bis zur nicht leeren Zelle
nicht die ganze Tabelle.
Sub test()
Dim z As Long, lz As Long
lz = Sheets("Tabelle1").Cells(65536, 3).End(xlUp).Row
For z = lz To 1 Step -1
With Sheets("Tabelle1")
If .Cells(z, 3) = "" Then .Rows(z).Delete
End With
Next
End Sub
Vielen Dank
Grüße chandler