Code soll so abgeändert werden, dass die eingefügt
20.05.2003 13:52:04
Sören
Sub ZeilenEinfuegen()
Sheets("BelegEx").Select
Range("B2").Select
Sheets("Label").Select
Dim vRow As Variant
vRow = InputBox("Anzahl der Zeilen:")
Sheets("BelegEx").Select
Range("B2").Select
If vRow = "" Then Exit Sub
Rows(ActiveCell.Row & ":" & _
ActiveCell.Row + vRow - 1).Insert
Sheets("Label").Select
End Sub