Brauche mal wieder Hilfe.
Ich möchte die erste leere Zelle in der Spalte A suchen und alle Zeilen darüber löschen.
Gruss Und Dank
Albin
Sub gdgdgd()
Dim EZ As Integer: EZ = 2 'ab Zeile2
Dim EL As Long, LZ As Long
With Sheets("Tabelle1")
LZ = .Rows.Count
'Erste Lücke in Spalte
EL = Evaluate("=MIN(IF(A" & EZ & ":A" & LZ & "="""",ROW(" & EZ & ":" & LZ & ")))")
.Rows(EZ & ":" & EL - 1).Delete xlUp
End With
End Sub
LG UweD