Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon diver-2002 vom 27.01.2022, 23:16 Options

Mehrere Leerzeilen in Exceltablelle einfügen

Hallo,

ich möchte gerne in einer Exceltabelle nach einer Datenzeile immer 10 Leerzeilen einfügen. Ich habe folgendes Makro ausprobiert zum einfügen von 1 Zeile, das hat auch bestens funktioniert. Wie schreibe ich das Makro um so dass anstatt nur 1. Zeile direkt 10 Leerzeilen eingefügt werden?

Hier das Makro:

Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Menge1 = i & ":" & i
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub

Danke und Gruß

Antwort schreiben

Antwort 1 von coros vom 28.01.2022, 08:10 Options

Hallo diver,

addiere in der Zeile

Menge1 = i & ":" & i
einfach die Zahl 9 hinzu. Das Makro sieht dann wie folgt aus:

Sub Leerzeilen() Set wksTemp = ActiveSheet Menge = wksTemp.UsedRange.Rows.Count Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?") For i = Menge To Titel + 2 Step -1 Menge1 = i & ":" & i + 9 Rows(Menge1).Select Selection.Insert Shift:=xlDown Next End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von diver-2002 vom 28.01.2022, 09:13 Options

Hallo Oliver,

vielen Dank für Deine schnelle Hilfe. Wie Du sicherlich erkannt hast, war es eh ein Makro das ich hier aus dem Forum von Dir vorher kopiert hatte.

Da ich erst das 2. Mal überhaupt mit Makros arbeite, bin ich auf Mithilfe angewiesen und für jede Hilfestellung dankbar.

Jetzt habe ich noch eine weitere Frage. Wie kann ich das Mako ergänzen bzw ändern, damit nur eine bestimmter Zeilbereich bearbeitet wird? Also ich habe z. B. insgesamt 500 Zeilen, möchte die Leerzeilen aber nur im Bereich 25 bis 150 haben?

Danke und Gruß

Antwort 3 von diver-2002 vom 28.01.2022, 09:40 Options

Hallo Oliver,

habe soeben das Makro getestet und es hat alles bestens funktioniert.

Nochmals Danke und Gruß!!!

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken