Kopierloop
04.05.2016 14:31:45
Michel
Ich bin ein VBA-Anfänger und habe eine Frage zu einem Kopierloop:
Konkret möchte ich einen Zellbereich (Zellen B3; D3; E3; F3) an einen anderen Ort kopieren und dies mit der nächsten Zeile solange wiederholen lassen, bis die Zeile 100 erreicht ist. Der Loop als solches funktioniert, leider aber nicht die "variable" Zeile des zu kopierenden Bereichs. Hier mal mein Versuch der leider nicht klappt:
Sub Beispiel()
Range("B2").Select
Do
ActiveCell.Offset(1, 0).Activate
Dim x As String
x = ActiveCell.Address
ActiveCell.Offset(1, 0).Activate
Dim RaBereich As Range
Set RaBereich = Union(Range("Cells(AktiveCell.Row,2)"), Range("Cells(AktiveCell.Row,4)"), _
_
Range("Cells(AktiveCell.Row,5)"), Range("Cells(AktiveCell.Row,6))"))
RaBereich.Select
Selection.Copy
Range("L1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blattname").Select
Range(x).Select
Loop Until ActiveCell.Row = "100"
End Sub
Wer kann mir weiterhelfen?
Schon mal Danke und Gruss
Sigi