Das Archiv des Excel-Forums

x-beliebige Zeile duplizieren

Bild

Betrifft: x-beliebige Zeile duplizieren
von: golem

Geschrieben am: 06.10.2003 10:37:43

Hallo Forum,
habe ein kleines Prob: mit Hilfe eines Buttons soll eine markierte Zeile dupliziert(kopiert und eingefügt) werden. Allerdings ist die markierte Zeile/Zelle eine X-beliebige. Mit welchem Befehl erkennt VB diese Zeile?
Per Makrorec griege ich das hin, aber nur für eine bestimmte Zeile.
Wer mag mir helfen?
mfg
Goli
Bild


Betrifft: AW: x-beliebige Zeile duplizieren
von: Andreas Schindler
Geschrieben am: 06.10.2003 10:52:13

Hallo Goli,

mit ActiveCell.Row erhälst Du die Zeile, in der sich der Cursor gerade befindet.
Dann brauchst Du nur eine neue Zeile einzufügen und den Rest reinzukopieren.

Gruß´
Andreas


Bild


Betrifft: Dankeschön, das is es! o.T.
von: golem
Geschrieben am: 06.10.2003 10:55:50




Bild


Betrifft: AW: x-beliebige Zeile duplizieren
von: PeterW
Geschrieben am: 06.10.2003 10:52:49

Hallo Golem,

mach es über die aktive Zelle. Deren Zeile ermittelst du mit Rows(ActiveCell.Row)

Gruß
Peter


Bild


Betrifft: Dankeschön, das is es! o.T.
von: golem
Geschrieben am: 06.10.2003 10:56:20




Bild


Betrifft: doch eine Fehlermeldung..
von: golem
Geschrieben am: 06.10.2003 10:59:25

..unzulässige Verwendung einer Eigenschaft (Rows markiert) ->?


Bild


Betrifft: AW: doch eine Fehlermeldung..
von: PeterW
Geschrieben am: 06.10.2003 11:03:20

Hallo Golem,

das hab ich gerade getestet und läuft ohne Fehler. Zeig ggf. mal den gesamten Code.


Sub kopieren()
Rows(ActiveCell.Row).Copy Sheets(2).Rows(1)
End Sub


Gruß
Peter


Bild


Betrifft: AW: doch eine Fehlermeldung..
von: golem
Geschrieben am: 06.10.2003 11:07:36

so siehts aus:
ActiveCell.Row 'hier kommt Fehler
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

Habe eben Deine Zeile eingefügt und komischerweise passiert nix(?)

Danke für die schnelle Antwort!


Bild


Betrifft: Test2
von: golem
Geschrieben am: 06.10.2003 11:11:00


Sub Zeile_generieren()
Rows(ActiveCell.Row).Copy Sheets(2).Rows(1)
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub


so wird nur eine zelle in die nächste zeile kopiert, wie fkt das für ganze Zeile?


Bild


Betrifft: AW: Test2
von: PeterW
Geschrieben am: 06.10.2003 11:15:26

Hallo Golem,

es wird unterhalb der aktiven Zeile eine Zeile eingefügt und die aktive Zeile in die neue Zeile kopiert:


Sub duplizieren()
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
Rows(ActiveCell.Row).Copy Rows(ActiveCell.Row + 1)
End Sub


Gruß
Peter


Bild


Betrifft: es klappt! Vielen vielen Dank ,Peter! o.T.
von: Golem
Geschrieben am: 06.10.2003 11:18:34




 Bild