Zellbereiche kopieren und einfügen

Bild

Betrifft: Zellbereiche kopieren und einfügen
von: timo_100
Geschrieben am: 17.08.2015 22:34:50

Hallo zusammen,
mein Ziel ist es, den Inhalt dreier Zeilen über diesen einzufügen.
Vielleicht könnte mir jemand weiterhelfen, wie die Referenz in der Zeile Bereich.Copy lauten müsste. Wenn ich eine direkte Zellenreferenz eingebe, funktioniert es.
Die Makro-Aufzeichnung hat mir für den allgemeinen Fall leider auch nicht weitergeholfen..

Sub Zellenkopieren()
    
    Dim lng As Long
    Dim Bereich As Range
    Dim ZeilNr  As Integer
    
    lng = ActiveCell.Row
    
    For Each Bereich In Application.Selection.Areas
        ZeilNr = ZeilNr + 1
        Bereich.Copy (ActiveSheet.Range(Cells(lngRow - 3).Select & ZeilNr))
    Next Bereich
   
    Set Bereich = Nothing
 End Sub
Danke!
Gruß Timo

Bild

Betrifft: AW: Zellbereiche kopieren und einfügen
von: Werner
Geschrieben am: 18.08.2015 02:19:17
Hallo Timo,
meinst du so??

Public Sub kopie()
Dim i As Long
i = ActiveCell.Row
Rows(i).Resize(3).Copy
Rows(i).Resize(3).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Gruß Werner

Bild

Betrifft: AW: Zellbereiche kopieren und einfügen
von: Timo
Geschrieben am: 18.08.2015 11:13:27
Hallo Werner,
das funktioniert prima :).
Herzlichen Dank!
Viele Grüße,
Timo

Bild

Betrifft: AW: Danke für die Rückmeldung. o.w.T
von: Werner
Geschrieben am: 18.08.2015 13:10:10


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellbereiche kopieren und einfügen"