wie kann man schnell zB 20 Zeilen vor der 1. Zeile einfügen, d.h. die Anzahl Zeilen soll bestimmbar sein?
Dank im voraus.
Gruß
Jean
Sub einFuegen()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 20 'hier die 20 entsprechend ändern
Rows("1:1").Insert Shift:=xlDown
Next
Range("A1").Select 'optional
Application.ScreenUpdating = True
End Sub
evtl. vorher noch die entsprechende Tabelle aktivieren!
Gruß Matthias
Option Explicit
Sub Makro1()
Dim i%
i = InputBox("Wieviele Leerzeilen", "Zeilen dazu", 0)
If i > 0 Then Rows("1:" & i).Insert Shift:=xlDown
End Sub