Zeilen einfügen
28.01.2004 08:09:18
Stutz
ich habe folgendes Makro aus dem Forum:
Option Explicit
Public
Sub einfuegen()
Dim varAnzahl As Variant
varAnzahl = Application.InputBox("Wie viele Zeilen sollen eingefügt werden?", "Eingabe", 1, Type:=1)
If varAnzahl <> False Then Rows("1:" & CStr(varAnzahl)).Insert Shift:=xlDown
End Sub
Es fügt nach Abfrage der Anzahl Zeilen ein, aber immer ab Zeile A. Wie kann es geändert werden, so dass die Zeilen oberhalb oder unterhalb der gerade aktiven Zelle eingefügt werden?
Danke für die Hilfe!
Strutz
Anzeige