Grüße Peter
https://www.herber.de/bbs/user/72166.xls
Sub Beispiel()
Dim varData, varDataOut()
Dim A&, B&
With Tabelle2
varData = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
End With
Redim varDataOut(1 To Ubound(varData) * 8, 1 To 1)
For A = 1 To Ubound(varDataOut) Step 8
B = B + 1
varDataOut(A, 1) = varData(B, 1)
Next A
With Tabelle1
.Columns(1).ClearContents
.Range("A1").Resize(Ubound(varDataOut)) = varDataOut
End With
End Sub
Gruß Tino