Zellbereiche kopieren und einfügen
18.08.2015 00:34:50
timo_100
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
Gruß Timo
Anzeige