Makro für Leerzeile

Forumthread: Makro für Leerzeile
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro für Leerzeile

Makro für Leerzeile

08.07.2005 11:12:18

dmoser

Moin,ich brauche nach jeder Zeile eine Leerzeile würde das mit nem Makro gehn und wenn ja wie würde das aussehen?,danke

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro für Leerzeile

08.07.2005 11:23:45

RainerK
AW: Makro für Leerzeile

08.07.2005 11:26:42

UweD
Danke

08.07.2005 11:37:49

dmoser
AW: Danke

08.07.2005 11:44:23

UweD
AW: Danke

08.07.2005 12:18:07

dmoser

AW: Makro für Leerzeile

08.07.2005 11:23:45

RainerK

Moin,
z. B. so:


Sub Jede_Zweite_Leer()
Dim i As Byte
For i = 2 To 100 Step 2
Rows(i).Insert Shift:=xlDown
Next i
End Sub

Gruß Rainer

AW: Makro für Leerzeile

08.07.2005 11:26:42

UweD

Hallo
so ginge es:


Sub Leerzeile()
'Bereich vorher markieren
Dim L1%, LR%, I
Application.ScreenUpdating = False
L1 = Selection.Row + 1
LR = L1 + Selection.Rows.Count - 1
For I = LR To L1 Step -1
Rows(I).Insert
Next I
Application.ScreenUpdating = True
End Sub

Gruß UweD
(Rückmeldung wäre schön)

Danke

08.07.2005 11:37:49

dmoser

Danke erst mal,das von Uwe hat nur nach der ersten Zeile eine Leer eingefügt das von Rainer ging so wie ich es wollt,danke nochmal alle beide

AW: Danke

08.07.2005 11:44:23

UweD

Hallo nochmal
Dann hast du nur eine Zelle markiert.
Im Makro steht, das der Bereich vorher markiert werden soll. Dann werden auch mehrere Zeilen eingefügt...
Gruß UweD
(Rückmeldung wäre schön)