Nach jeder Zeile eine Leerzeile einfuegen mithilfe einer Makroformel

Question

hallo Leute,

Ich bin auf der Suche nach einem Makro, mithilfe dessen ich in Excel nach jeder Zeile eine Leerzeile einfuegen kann, ohne dies manuell mache zu muessen. Es geht um einen Bereich von 500 Zeilen.

Schonmal vielen Dank im Voraus fuer eure Hilfe.

Viele Gruesse

Sabine

Answer 1

Hallo,

versuch es mal hiermit

Sub Leerzeile()
letzteZeile = Range("A65536").End(xlUp).Row
For i = letzteZeile To 1 Step -1
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub

Gruß

Helmut

Answer 2

hi all ^^

in korrigierter fassung ^^

gruss nighty

Option Explicit
Sub Leerzeile()
Dim letzteZeile As Long
Dim i As Long
letzteZeile = Range("A" & Rows.Count).End(xlUp).Row
For i = letzteZeile To 3 Step -1
Rows(i).Insert Shift:=xlDown
Next i
End Sub

Answer 3

Vielen Dank fuer eure Antworten! Leider kommt bei mir beim Versuch des Ausfuehrens des Codes folgende Fehlermeldung: Compile Error
Expected: identifier

Was mach ich falsch?

Danke

Answer 4

Vielen Dank fuer Eure Antworten!

Leider kommt bei mir die Fehlermeldung:

Compile Error:
Expected: identifier

Was mache ich falsch? : (

Danke

Answer 5

Hallo,

erste Frage: Welche Excel-Version?

Gruß

Helmut

Answer 6

hi all ^^

mir nicht verstaendlich :-)

hier anders aufgebaut

gruss nighty

Option Explicit
Sub Einfuegen()
Dim TbZeile As Long
Dim TbSpalte As Long
Dim ZeilenZaehler As Long
Dim Index As Long
Dim SpaltenZaehler As Long
TbZeile = Cells(Rows.Count, 1).End(xlUp).Row
TbSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
ReDim TbSpaA(TbZeile * 2, TbSpalte) As Variant
ReDim TbSpaA1(TbZeile * 2, TbSpalte) As Variant
TbSpaA() = Range(Cells(1, 1), Cells(TbZeile * 2, TbSpalte))
TbSpaA1() = Range(Cells(1, 1), Cells(TbZeile * 2, TbSpalte))
Index = 1
For ZeilenZaehler = 2 To TbZeile
Index = Index + 1
For SpaltenZaehler = 1 To TbSpalte
TbSpaA1(Index, SpaltenZaehler) = TbSpaA(ZeilenZaehler, SpaltenZaehler)
Next SpaltenZaehler
Index = Index + 1
For SpaltenZaehler = 1 To TbSpalte
TbSpaA1(Index, SpaltenZaehler) = ""
Next SpaltenZaehler
Next ZeilenZaehler
Range(Cells(1, 1), Cells(TbZeile * 2, TbSpalte)) = TbSpaA1()
End Sub

Answer 7

Vielen Dank euch allen.

@nighty: MIt diesem Makro hatte ich erfolg, Vielen Dank!!

Viele Gruesse