Microsoft Excel

Herbers Excel/VBA-Archiv

x-beliebige Zeile duplizieren

    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