könnt ihr mir helfen, dieses Makro zu erweitern:
Sub Anpassen_II()
Dim Wo As Integer
Dim Oft As Integer
Wo = 5
Oft = 2
With Sheets("Tabelle1")
Range(Rows(Wo), Rows(Wo + Oft - 1)).Insert shift:=xlDown
End With
End Sub
Quelle: http://www.office-loesung.de/ftopic417740_0_0_asc.php
Ich hätte gerne für "Oft" eine Abfrage, damit ich die 2 oder eine beliebig andere Zahl eintragen kann.
VG
Kisska