VBA Zeilen kopieren und einfügen

[Ewald]

Hallo NG,
in einem EXCEL97-Worksheet habe ich die ersten 400 Zeilen
zur Dateneingabe vorbereitet. Die Zellen enthalten tlw.
Formeln und Gültigkeitsbereiche. Mittels einer VBA-
Prozedur möchte ich bei Bedarf neue Zeilen einfügen.
Zu folgendem Ansatz bin ich gekommen:

Rows("391:400").Select ' um 10 Zeilen zu kopieren
Selection.Insert Shift:=xlUp

das funktioniert zwar, allerdings werden die Zeilen vor
Zeile 391 eingefügt(Zeilen 391-400 werden nach hinten
verschoben, was nicht sein darf, da ja bereits Daten
enthalten sein können).
Zur Selection-Eigenschaft habe ich in der Hilfe nichts
gefunden.

Danke für jede Hilfe

MfG
Ewald

[stefan onken]

hallo Ewald,
fürs Kopieren müsstest du den Copy-Befehl verwenden, etwa so:

Rows("391:400").Copy
Rows("401").Select
ActiveSheet.Paste

oder aber

Rows("391:400").Copy Destination:=Rows(401)

Gruß
stefan

Post by Ewald
Hallo NG,
in einem EXCEL97-Worksheet habe ich die ersten 400 Zeilen
zur Dateneingabe vorbereitet. Die Zellen enthalten tlw.
Formeln und Gültigkeitsbereiche. Mittels einer VBA-
Prozedur möchte ich bei Bedarf neue Zeilen einfügen.
Rows("391:400").Select ' um 10 Zeilen zu kopieren
Selection.Insert Shift:=xlUp
das funktioniert zwar, allerdings werden die Zeilen vor
Zeile 391 eingefügt(Zeilen 391-400 werden nach hinten
verschoben, was nicht sein darf, da ja bereits Daten
enthalten sein können).
Zur Selection-Eigenschaft habe ich in der Hilfe nichts
gefunden.
Danke für jede Hilfe
MfG
Ewald