Datenreihe wiederholen bis Bedingung erfüllt ist

[Seeqi]

Hallo zusammen,

ich hoffe auch bei dem folgenden Thema hier Hilfe zu finden :).
Einiges habe ich hier schon lernen dürfen aber sowas leider NOCH nicht  

Also in der Beispieldatei findet ihr eine Schaltfläche mit einer Simplen Userform, in die Felder werden Zahlen von 1 -10 eingegeben diese werden dann auf die Datei übertragen.
Soweit klappt auch alles.
Was ich nun gerne hätte ist, dass er diese Zahlenreihe wiederholt bis die Zahlenreihe 450 Felder lang ist.
Ich selber habe es hier mit eine Do Loop variante probiert komme aber mit Youtube nicht auf das gewünscht Ergebnis.

Vielen Dank schonmal für die Hilfe :)

[LCohen]

=INDEX(A1:A10;REST(SEQUENZ(450;;0);10)+1)

[Seeqi]

Danke für die Antwort aber habe mich wohl sehr doof ausgedrückt :)

Ich meine das die Zahlenreihe sich wiederholen soll 450 Spalten weiter nach rechts.

[Kuwer]

Hallo,

Code:

Private Sub CommandButton1_Click()
  Dim i As Long
  Dim last As Long
  Dim vArr(1 To 28) As Long
  last = Cells(Rows.Count, 3).End(xlUp).Row + 1
  For i = 1 To 28
    vArr(i) = CLng(0 & Controls("TB_" & i).Value)
  Next i
  For i = 0 To 15
    Cells(last, i * 28 + 3).Resize(, 28).Value = vArr
  Next i
End Sub

Gruß Uwe

[LCohen]

=INDEX(A1:A10;REST(SEQUENZ(;450;0);10)+1)

[snb]

Verzichte immer auf verbundene Zellen.
So kreiert man kein Kalender.