Supportnet / Forum / Tabellenkalkulation
Zwischenzeilen einfuegen
Frage
hallo zusammen,
ich habe das folgende problem, dass ich eine datei habe mit ca. 500 untereinander folgend eintragen.
ich moechte nun zwischen jede zeile eine leerzeile einfuegen. dies ist bei 500 befuellten zeilen haendisch eine menge arbeit. gibt es hierzu einen kleinen trick?
danke und gruss
Antwort 1 von rainberg
Hallo,
folgendes Makro fügt ab Zeile 2 aufsteigend jede zweite Zeile eine Leerzeile ein.
Gruß
Rainer
folgendes Makro fügt ab Zeile 2 aufsteigend jede zweite Zeile eine Leerzeile ein.
Option Explicit
Sub einfuegen()
Dim intI As Integer
Application.ScreenUpdating = False
For intI = 2 To 500
If intI Mod 2 = 0 Then
Rows(intI).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rainer
Antwort 2 von dvdh
hallo rainberg,
super und vielen dank. hat ohne probleme geklappt.
super und vielen dank. hat ohne probleme geklappt.