Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen
12.12.2008 11:41:43
arend
Hallo Ihr,
ich möchte per makro automatisch immer 11 Zeilen einfügen lassen.
In meiner Spalte A stehen 82 Positionen, und ich brauche zwischen diesen jeweils 11 Leerzeilen.
Wie geht das?
herzlichen Dank im Voraus.
arend
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
12.12.2008 12:10:00
Mag
Hi,
Ansatz:

Option Explicit
Sub mach()
Dim i As Long, j As Long
Const zeilen = 11
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To zeilen
Cells((i - 2) * (zeilen + 1) + 2, 1).Insert Shift:=xlDown
Next j
Next i
End Sub


Gruss

Anzeige
AW: Zeilen einfügen
12.12.2008 12:29:54
Christian
hallo Mag,
Zeilen, nicht Zellen einfügen. Die zweite Schleife und die Rechnerei kannst'e dir sparen, wenn du von unten anfängst. 

Option Explicit
Sub machsanders()
Dim i&
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
.Rows(i).Resize(3).Insert
Next
End With
Application.ScreenUpdating = True
End Sub

Gruß

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige