ich hab in tabelle1 10 Werte stehen die ich in Tabelle2 167mal untereinader kopieren möchte. d.h. zuerst wert1 167x dann wert2 167x usw.
kann mir bitte jemand helfen?
liebe grüsse
thomas
Sub KopierenMehrfachEinfügen()
' Thomas Severa, 07.09.2005
' Kopieren einer Kostenstelle, mehrfach in 2te Tabelle
' für weitere Verwendung einfügen
Dim m As Integer
m = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To m
n = Sheets("End").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle1").Activate
Range("A" & i).Select
Selection.Copy
Sheets("End").Select
Range("A" & n & ":" & "A" & n + 167).Select
ActiveSheet.Paste
Next i
End Sub
Sub thomas()
Dim iZähler As Integer
For iZähler = 1 To 10
Worksheets("Tabelle1").Cells(iZähler, 1).Copy _
Destination:=Worksheets("End").Range("A" & _
1 + (iZähler - 1) * 147 & ":A" & iZähler * 147)
Next
End Sub