Hallo Angelo,

hast du dir deinen Beitrag eigentlich mal angeschaut?

Zum Code einfügen bitte oben in der Leiste das Code-Fenster benutzen. Das funktioniert aber nicht mit dem IE, da kannst du ja z.B. Firefox benutzen. So kann man dann mit dem Code auch was anfangen.

Ehrlich gesagt habe ich keine Ahnung was du in einer Schleife von 1-31 befüllen willst

Ich hab in deinen Code mal zwei Schleifen zum Befüllen eines Teils der Textboxen und zum setzen der Checkboxen eingebaut. Bzgl. der Checkboxen musst du jetzt aber deine Anordnung auf deiner Userform anpassen. Damit sie alle in einer Schleife abgearbeitet werden können sind die jetzt chronologisch 9-16 ==> W-AC.

Zudem das ganze in eine With - End With Klammer, das spart dann das ständige schreiben des Blattes.

Im Übrigen kannst du dir beim Übertragen der Werte vom Blatt in die Textboxen das Format-Gedöns sparen. wenn du das als Text überträgst

TextBox1 = .cells(1, 1).Text

dann wird es in der Textbox so dargestellt, wie es auch in der Zelle aussieht.

Dim i As Long

With Tabelle13
    For i = 14 To 21
        Me.Controls("Textbox" & i) = .Cells(7, i - 9).Text
    Next i

    TextBox22 = Format(.Range("p7"), "0.00") & " Std."
    TextBox23 = Format(.Range("Q7"), "0.00") & " €"
    TextBox24 = Format(.Range("r7"), "0.00") & " €"
    TextBox25 = .Range("a7") & ", " & .Range("b7")
    TextBox26 = .Range("c7")
    
    For i = 9 To 16
        Me.Controls("Checkbox" & i) = Cells(7, i + 14)
    Next i
    
    If .Range("n7") = "" Then
        ComboBox2 = "Deutschland"
    Else
        ComboBox2 = .Range("n7")
    End If
    
    If CDate(TextBox18) < CDate(TextBox19) Then TextBox20.ForeColor = &HFF&

End With

Gruß Werner