Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige