Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige