Jede 2.Zeile eine Zeile einfügen

Guten Tag
Ich müsste in unserer Excel Tabelle (ca. 180 Zeilen) nach jeder Zeile ein leere Zeile einfügen. Ich habe dazu von Daniel in dieser Webseite ein Makro gefunden. Dieses sollte über Sortieren ausgeführt werden. Ich kann den Text des Makros in ein Word kopieren, aber was mach ich damit? Ich kann den Text auch in freie Zeilen in Excel kopieren.

Vielleicht kann mir jemand helfen?
Herzlichen Dank
Eugen Hardegger
Animal Life Schweiz

Das Makro:
Sub ZeilenEinfügen()
Dim Abstand As Long
Dim KopfZeilen As Long
Dim Zeilen As Long
KopfZeilen = 6
Abstand = 2
Zeilen = Cells(Rows.Count, 1).End(xlUp).Row
Columns(1).Insert
Cells(1, 1).Resize(Zeilen).Formula = "=Row()"
Cells(Zeilen + 1, 1).Resize(Zeilen / Abstand).Formula = _
"=(Row()-" & Zeilen & ")*" & Abstand & "+" & KopfZeilen
Columns(1).Formula = Columns(1).Value
Cells(1, 1).CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, header:=xlNo
Columns(1).Delete
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Eugen,

ich würde das so machen:

Option Explicit

Sub ZeilenEinfügen()
  Dim ze
  For ze = Cells(Rows.Count, 1).End(xlUp).Row To 7 Step -1
    Rows(ze).Insert
  Next
End Sub

in Deiner Arbeitsmappe gehst Du so vor:
-In Tabelle1 Tastenkombi Alt+F11 -darauf öffnet sich die VBA-Umgebung
-in der VBA-Umgebung klicke auf das Menü "Einfügen"
-dann auf "Modul" -es öffnet sich ein neues leeres Modul
-in die große weiße Fläche rechts fügst Du nun das kopierte Makro ab Sub xxx() bis end Sub einschließlich ein (mit Strg+V)
Jetzt startest Du das Makro über die entsprechende Taste im Menü (Dreieck nach rechts zeigend) oder
setzt den Cursor in den Makrocodetext irgendwo zwischen Sub und End Sub und drückst F5

Gruß
Jochen

Sub Makro1() [A1].CurrentRegion.Columns(1).Copy [A1].End(xlDown).Offset(1) Application.CutCopyMode = False With Worksheets("Tabelle1").Sort .SortFields.Clear .SortFields.Add2 Key:=Range("A1") .SetRange Range("A1").CurrentRegion .Header = xlNo .Apply End With End Sub

Sub Makro4() Dim Rng As Range, zeile As Long Set Rng = Range("A3") For zeile = 5 To Cells(Rows.Count, 1).End(xlUp).Row Step 2 Set Rng = Union(Rng, Cells(zeile, 1)) Next Rng.EntireRow.Insert shift:=xlDown Rng.EntireRow.Offset(1).Insert shift:=xlDown Set Rng = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Jede 2.Zeile eine Zeile einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Jede 2.Zeile eine Zeile einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread