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

Excelzeilen von 3 bis .... manuell löschen

Forumthread: Excelzeilen von 3 bis .... manuell löschen

Excelzeilen von 3 bis .... manuell löschen
30.09.2025 14:43:36
Herbert Vader
Ich habe mit dem Recorder ein Makro erstellt das die Excelzeilen 3 bis 13 löscht. Die letzte Zeile (hier 13) ändert sich aber stets. Wie kann ich diese stets manuell eingeben.
Mein Makro sieht so aus.
Sub Zeilenlöschen()
'
' Zeilenlöschen Makro
'

'
Rows("3:13").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

Danke von einem Anfänger
Herbert
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excelzeilen von 3 bis .... manuell löschen
30.09.2025 14:46:33
RPP63
Moin!
Wenn unter der letzten Zeile ohnehin alles leer ist, dann einfach
Rows("3:1048576").Delete

Gruß Ralf
AW: Excelzeilen von 3 bis .... manuell löschen
30.09.2025 18:05:30
Herbert Vader
Ich war nicht genau genug. Es ist eine Tabelle mit mehr als 50 aktiven Zeilen.

Ich möchte ein Makro das beim ausführen ein Eingabefeld öffnet.

In dem gebe ich die Zeilenzahl 13 (in meinem Beispiel) ein.

Nach Enter soll das restliche Makro ausgeführt werden.

Danke für die bisherige Hilfe.
Herbert
Anzeige
AW: Excelzeilen von 3 bis .... manuell löschen
30.09.2025 18:12:19
RPP63
Du hast doch 3 funktionierende Lösungen erhalten …
Aber Gottes Wille ist sein Himmelreich:
Sub DelRows()

Dim letzteZeile As Long
letzteZeile = Application.InputBox("letzte Zeile eingeben:", Type:=1)
If letzteZeile Then Rows("3:" & letzteZeile).Delete
End Sub
Anzeige
AW: Excelzeilen von 3 bis .... manuell löschen
30.09.2025 18:50:42
Herbert Vader
Lieber, lieber RPP63,

danke Dir dem Gott der Götter.
Aber ich bin faul - nach dem IBM Motto: Der Computer ist bislang das genialste Produkt der menschlichen Faulheit

Mit Humor ein sehr dankbarer
Herbert
AW: Excelzeilen von 3 bis .... manuell löschen
30.09.2025 14:48:47
Yal
Hallo Herbert,

sollte ungefähr so aussehen:
Sub Zeilenlöschen()

' Zeilenlöschen Makro

'ohne Eingabe vom Zielblatt werden die Anweisungen auf dem aktiven Blatt durchgeführt!
Range(Range("A3"), Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete Shift:=xlUp
Range("A1").Select
End Sub

VG
Yal
Anzeige
manuell löschen
30.09.2025 14:59:14
RPP63
Ergänzend noch etwas Grundlagenwissen in Excel (ohne VBA!):
• gib ins Namenfeld oben links bspw. 3:17 ein und drücke Enter
• die Zeilen 3 bis 17 sind jetzt markiert
• diese löschst Du simpel mittels Strg+- (Minus-Taste)
That's it! ;)

Gruß Ralf
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18