copy paste
17.10.2007 19:15:00
Rüdiger
ich habe mir ein makro zusammengestellt, das leider nicht funktioniert. Eigentlich will ich einen Block aus Zellen 12 mal auf im Tabellenblatt ("Sources") kopieren. Dazu habe ich folgendes Makro geschrieben. Bin übrigens kein Experte. Funktioniert leider nicht, kann mir jemand helfen? Gruß Rüdiger
Sub copy()
Dim i As Integer
Dim r As Integer
For r = 1 To 10
For i = 1 To 12
With Sheets("sources").Columns(8 + i, 7 + r).Value = Columns(8 + i, 3 + r)
Next i
Next r
End With
End Sub