ich habe eine Tabelle mit rund 1000 Zeilen - ich möchte hinter jeder Zeile allerdings eine Leerzeile einfügen - geht so etwas auch automatisch, da ich nicht hinter jeden zweite Zeile manuell ein neue Zeile einfügen möchte?
Danke
VG
Thorsten
Sub xxx()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub
Sub Leerzeilen_Einfuegen()
Dim wks As Worksheet, lngZeile As Long
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For lngZeile = .Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If lngZeile Mod 100 = 0 Then Application.StatusBar = "Zeile " & lngZeile
.Rows(lngZeile).Insert
Next lngZeile
End With
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Fertig"
End Sub
Dieses Makro speicherst du am besten in einem allgemeinen Modul der persönlichen Makroarbeitsmappe, dann hast du es immer zur Verfügungung.