Ich suche einen Makrobefehl, der alle Zeilen unter der letzten eingerahmten Zelle löscht.
Vielen Dank im voraus.
mfg
Karsten
Sub Loesche()
Const spalte = 1
Dim i As Long
i = Rows.Count
Do While Cells(i, spalte).Borders(xlEdgeBottom).LineStyle = xlNone
i = i - 1
If i = 0 Then Exit Do
Loop
'Löschen ab Zeile (i+1):
Range(Cells(i + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End Sub