Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeile einfügen per VBA

Forumthread: Leere Zeile einfügen per VBA

Leere Zeile einfügen per VBA
22.01.2008 08:16:23
christian

halo alle
ich habe ein macro aufgezeichnet das mir in jede 2zeile eine leerzeile einfügt. beginnen ab zeile 2
enden sollte es ca. bei zeile 200
wie kann ich das macro verkürzen?
DERZEITIGE AUFZEICHNUNG:

Sub jede2zeile()
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("8:8").Select
Selection.Insert Shift:=xlDown
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Rows("14:14").Select
Selection.Insert Shift:=xlDown
Rows("16:16").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Rows("20:20").Select
Selection.Insert Shift:=xlDown
Rows("22:22").Select
Selection.Insert Shift:=xlDown
Rows("24:24").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Rows("26:26").Select
Selection.Insert Shift:=xlDown
Rows("28:28").Select
Selection.Insert Shift:=xlDown
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Rows("32:32").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Rows("34:34").Select
Selection.EntireRow.Hidden = False
Selection.Insert Shift:=xlDown
Rows("36:36").Select
Selection.Insert Shift:=xlDown
Rows("38:38").Select
Selection.Insert Shift:=xlDown
Rows("40:40").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Rows("42:42").Select
Selection.Insert Shift:=xlDown
Rows("44:44").Select
Selection.Insert Shift:=xlDown
Rows("46:46").Select
Selection.Insert Shift:=xlDown
Rows("48:48").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Rows("50:50").Select
Selection.Insert Shift:=xlDown
Rows("52:52").Select
Selection.Insert Shift:=xlDown
Rows("54:54").Select
Selection.Insert Shift:=xlDown
Rows("56:56").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Rows("58:58").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=-75
Range("B1").Select
End Sub


BEISPIEL SO UNGEFÄHR KÖNNTE ES AUSSEHEN:


Sub leerzeilen_einfügen()
ab zeile 2 to 200 then
jede  2 zeile leerzeile einfügen
End Sub


danke
gruss
christian neu

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeile einfügen per VBA
22.01.2008 08:36:14
Wolli
Moin Christian, so:

Sub test()
Do
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Loop Until ActiveCell.Row >= 200
End Sub


Gruß, Wolli

AW: Leere Zeile einfügen per VBA
22.01.2008 08:50:00
christian
hi Wolli
vielen dank im prinzip passt es aber es beginnt schon in der ersten zeile.
also es wird in der ersten zeile schon eine leerzeile eingefügt , es soll aber erst ab zeile 2 eine leerzeile eingefügt werden.,
hast du noch eine idee wie ich das lösen kann?
danke
gruss
christian neu

Anzeige
AW: Leere Zeile einfügen per VBA
22.01.2008 08:57:00
Renee
Hi Christian,
so?:

Sub zwei()
Dim ix As Integer
For ix = 2 To 200 Step 2
ActiveSheet.Cells(ix, 1).EntireRow.Insert
Next ix
End Sub


GreetZ Renée

AW: Leere Zeile einfügen per VBA
22.01.2008 09:07:14
christian
servus Renée
suuuuuuuper vielen dank.

AW: Leere Zeile einfügen per VBA
23.01.2008 21:50:00
Daniel
Hi
wenn du grosse Datenmengen hast und wert auf Geschwindigkeit legst, könntest du auch diesen Code verwenden. Er ist zwar etwas länger, dafür aber um Welten schneller als das Einfügen einzelner Zeilen per Schleife.
(bei 200 Zeilen 12 x schneller, bei 10.000 Zeilen 200 x schneller)

Sub Leerzeilen()
Dim ze As Long
Columns(1).Sort key1:=Cells(1, 1)
ze = Cells(Rows.Count, 1).End(xlUp).Row
Columns(1).Insert
With Cells(1, 1).Resize(ze)
.Formula = "=row()"
.Formula = .Value
.Offset(ze) = .Value
End With
Cells(1, 1).CurrentRegion.Sort , key1:=Cells(2, 1), order1:=xlAscending, header:=xlNo
Columns(1).Delete
End Sub


einen Haken hat die Sache natürlich:
sollten sich Formeln auf diese Tabelle beziehen, dann kannst du diese Methode nicht verwenden, weil beim Sortieren die Zellbezüge nicht angepasst werden.
Da müsstest du dann auf das langsame einfügen zurückgreifen.
Gruß, Daniel

Anzeige
AW: Leere Zeile einfügen per VBA
22.01.2008 09:34:22
Wolli
Naja, es beginnt in der Zeile, in der Du stehst. Man könnte z.B. 

Range("A2").select


als 1. Zeile einfügen.
Gruß, Wolli

;

Forumthreads zu verwandten Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Zeilen einfügen mit VBA-Code
HaKa

Hallo Forum
Ich möchte in einer bestehenden Tabelle, Bereich A3:U150, resp. nach jeder der 147 Zeilen jeweils 10 neue, leere Zeilen einfügen. Wie lautet der Code?
Gruss Heinz
06.07.2010 20:53:12
Thread-ID: 1165794
3 Beiträge
Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan

Hallo zusammen
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden....
17.08.2010 13:11:00
Thread-ID: 1172554
4 Beiträge
Anzeige
Formel via VBA in best. (viele) Zellen einfügen
Klaus

Hallihallo zusammen,
und zwar mache ich u.a. einen Vergleich von 2 Tabellen mit mehreren Spalten und vielen Zeilen (meist um die 2500). [Vergleichscode ursprünglich von Hajo-Excel.de... vielen Dank an der Stelle!!]
Ich habs so hinprogrammiert und es hat im Kleinen auch gut funktioniert....
15.09.2010 16:53:30
Thread-ID: 1177873
5 Beiträge
Leere Zeile einfügen
Tobson

Halli Hallo
Habe den folgenden VBA Code, bei Übereinstimmung der If Abfrage wird eine Tabelle mit Werten beschrieben, trifft die Übereinstimmung nicht zu, soll eine Zeile frei gelassen werden und die Schleife das nächste mal durchlaufen... . Ich suche ja immer die nächste frei Zeile in der...
14.10.2010 22:56:15
Thread-ID: 1182501
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Leere Zeilen in Excel per VBA einfügen

Schritt-für-Schritt-Anleitung

Um leere Zeilen in Excel per VBA einzufügen, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden. Wir konzentrieren uns darauf, eine leere Zeile unterhalb einer bestimmten Zeile einzufügen, beginnend ab Zeile 2 bis Zeile 200.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf „Einfügen“ und wähle „Modul“, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub LeerzeilenEinfügen()
   Dim ix As Integer
   For ix = 2 To 200 Step 2
       ActiveSheet.Cells(ix, 1).EntireRow.Insert
   Next ix
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Drücke ALT + F8, wähle „LeerzeilenEinfügen“ aus der Liste und klicke auf „Ausführen“.

Jetzt werden in jeder zweiten Zeile zwischen der 2. und der 200. Zeile leere Zeilen eingefügt. Dies ist eine effektive Methode, um mit dem Excel VBA leere Zeilen einzufügen.

Häufige Fehler und Lösungen

Fehler: Das Makro fügt auch in der ersten Zeile eine leere Zeile ein.
Lösung: Stelle sicher, dass die Schleife bei For ix = 2 To 200 beginnt, um ab Zeile 2 zu arbeiten.

Fehler: Das Makro läuft nicht, weil der VBA-Sicherheitsmodus aktiviert ist.
Lösung: Gehe zu „Datei“ > „Optionen“ > „Trust Center“ und ändere die Einstellungen für Makros.

Alternative Methoden

Wenn du Geschwindigkeit und Effizienz benötigst, könntest du die folgende Methode verwenden, um leere Zeilen einzufügen:

Sub SchnelleLeerzeilen()
    Dim ze As Long
    ze = Cells(Rows.Count, 1).End(xlUp).Row
    Columns(1).Insert
    With Cells(1, 1).Resize(ze)
        .Formula = "=row()"
        .Formula = .Value
        Offset(ze) = .Value
    End With
    Cells(1, 1).CurrentRegion.Sort , key1:=Cells(2, 1), order1:=xlAscending, header:=xlNo
    Columns(1).Delete
End Sub

Diese Methode ist besonders nützlich, wenn du große Datenmengen hast, da sie erheblich schneller ist als die Verwendung von Schleifen.

Praktische Beispiele

Hier sind einige Beispiele, wie du das Excel VBA verwenden kannst, um leere Zeilen einzufügen:

  1. Leere Zeilen nach jeder Zeile einfügen:

    Sub NachJederZeileEinfügen()
   Dim ix As Integer
   For ix = 1 To 200
       ActiveSheet.Cells(ix, 1).EntireRow.Insert
       ix = ix + 1 ' Überspringt die nächste Zeile
   Next ix
End Sub

  2. Leere Zeilen unterhalb einer bestimmten Zeile einfügen:

    Sub UnterhalbEinfügen()
   ActiveSheet.Rows(3).Insert Shift:=xlDown ' Fügt eine leere Zeile unterhalb von Zeile 3 ein.
End Sub

Tipps für Profis

  • Verwende Application.ScreenUpdating = False zu Beginn deines Makros, um die Bildschirmaktualisierung während des Vorgangs zu deaktivieren. Das macht dein Makro schneller.

  • Aktiviere die Fehlerbehandlung mit On Error Resume Next, um sicherzustellen, dass das Makro auch bei unerwarteten Problemen weiterläuft.

  • Nutze die VBA-Editor-Umgebung, um den Code schrittweise auszuführen und Fehler zu identifizieren.

FAQ: Häufige Fragen

1. Wie füge ich eine leere Zeile über einer bestimmten Zeile ein?
Verwende den Befehl ActiveSheet.Rows(2).Insert Shift:=xlDown, um eine leere Zeile oberhalb der zweiten Zeile einzufügen.

2. Kann ich das Makro anpassen, um mehr als 200 Zeilen zu bearbeiten?
Ja, ändere einfach die 200 in der Schleife auf die gewünschte Zeilenzahl, z.B. For ix = 2 To 500 Step 2.

3. Wie kann ich das Makro auf eine bestimmte Tabelle anwenden?
Füge den Tabellennamen im Code hinzu, z.B. Worksheets("Tabelle1").Cells(ix, 1).EntireRow.Insert.

Mit diesen Anleitungen und Tipps kannst du effektiv leere Zeilen in Excel mithilfe von VBA einfügen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige