x-beliebige Zeile duplizieren

• x-beliebige Zeile duplizieren von golem vom 06.10.2003 10:37:43
  • AW: x-beliebige Zeile duplizieren - von Andreas Schindler am 06.10.2003 10:52:13
    • Dankeschön, das is es! o.T. - von golem am 06.10.2003 10:55:50
  • AW: x-beliebige Zeile duplizieren - von PeterW am 06.10.2003 10:52:49
    • Dankeschön, das is es! o.T. - von golem am 06.10.2003 10:56:20
    • doch eine Fehlermeldung.. - von golem am 06.10.2003 10:59:25
      • AW: doch eine Fehlermeldung.. - von PeterW am 06.10.2003 11:03:20
        • AW: doch eine Fehlermeldung.. - von golem am 06.10.2003 11:07:36
        • Test2 - von golem am 06.10.2003 11:11:00
          • AW: Test2 - von PeterW am 06.10.2003 11:15:26
            • es klappt! Vielen vielen Dank ,Peter! o.T. - von Golem am 06.10.2003 11:18:34

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

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

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

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

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

Betrifft: doch eine Fehlermeldung..
von: golem
Geschrieben am: 06.10.2003 10:59:25
..unzulässige Verwendung einer Eigenschaft (Rows markiert) ->?

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

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!

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?

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

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