Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: lösche alle Zeilen unter letzter Zelle mit Rahmen

lösche alle Zeilen unter letzter Zelle mit Rahmen
10.10.2005 22:34:09
M.
Hallo,
Ich suche einen Makrobefehl, der alle Zeilen unter der letzten eingerahmten Zelle löscht.
Vielen Dank im voraus.
mfg
Karsten
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: lösche alle Zeilen unter letzter Zelle mit Rah
10.10.2005 22:42:38
Matthias
Hallo Karsten,
keine Eingrenzung, z.B. nur eine best. Spalte durchsuchen?
Gruß Matthias
AW: lösche alle Zeilen unter letzter Zelle mit Rah
10.10.2005 22:46:39
M.
Hi
doch, Eingrenzung in Spalte A.
Gruß Karsten
AW: lösche alle Zeilen unter letzter Zelle mit Rah
10.10.2005 22:50:20
Matthias
Hallo Karsten,
so?

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

Gruß Matthias
Anzeige
AW: lösche alle Zeilen unter letzter Zelle mit Rah
10.10.2005 23:40:10
M.
Hallo Matthias,
Es funktioniert bestens. Danke!
mfg Karsten

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige