ich habe in einer Userform viele Textboxen dennen ich aus einem Tabellenblatt einen Text zuweise.
Textbox1.text = Worksheets("Ergebnis").Range("c11").Value
Textbox2.text = Worksheets("Ergebnis").Range("c12").Value
textbox3.text = Worksheets("Ergebnis").Range("c13").Value
usw.
Diese endlose stupide Wiederholung bin ich leid*g*
Also hatte ich folgende Idee
Dim Nametextbox As String
Dim textboxzähler As Single
Dim Pl As String
Dim Reihe As Integer
Dim Spalte As Integer
With Sheets("Ergebnis")
For textboxzähler = 0 To 7
Reihe = 24
Spalte = 6
Nametextbox = "Textbox"
textboxzähler = textboxzähler + 1
Pl = textboxzähler
textbox = Nametextbox + Pl
textbox(textbox).text = Worksheets("ergebnis").Range("F24").Value
Next
End With
End Sub
Leider bekomme ich immer die Fehlermeldung Typen unverträglich
Wer kann meiner Unwissenheit auf die Sprünge helfen
Danke für eurer Unterstützung