Hallo zusammen,

ich habe eine Frage, auf ein Problem, für das ich keine Lösung gefunden habe.

Aktuell befülle ich eine UserForm wie folgt:

UserForm_ItemInformations.Label__Creator_Englisch.Caption = Range(StrTabelle & "[Creator_Englisch]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Creator_Japanese.Caption = Range(StrTabelle & "[Creator_Japanese]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Title_English_Mandarake.Caption = Range(StrTabelle & "[Title_English_Mandarake]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Title_Japanese_Mandarake.Caption = Range(StrTabelle & "[Title_Japanese_Mandarake]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Type.Caption = Range(StrTabelle & "[Type]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__ShopName.Caption = Range(StrTabelle & "[ShopName]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Price.Caption = Range(StrTabelle & "[Price]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Height.Caption = Range(StrTabelle & "[Height]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Width.Caption = Range(StrTabelle & "[Width]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Thickness.Caption = Range(StrTabelle & "[Thickness]").Cells(StartRow_in_Table, 1).Value
UserForm_ItemInformations.Label__Weight.Caption = Range(StrTabelle & "[Weight]").Cells(StartRow_in_Table, 1).Value

Wie man hier sehen kann, sind die 11 Zeilen weitgehend identisch und unterscheiden sich nur in zwei Bereichen.

Dies schreit förmlich nach einer Schleife.

Daher wollte ich alles wie folgt befüllen lassen:

Dim Array_Names As Variant
Array_Names = Array( _
    "Creator_Englisch", _
    "Creator_Japanese", _
    "Title_English_Mandarake", _
    "Title_Japanese_Mandarake", _
    "Type", _
    "ShopName", _
    "Price", _
    "Height", _
    "Width", _
    "Thickness", _
    "Weight")

For int1 = 0 To 10
    UserForm_ItemInformations.Label__?????.Caption = Range(StrTabelle & "[" & Array_Names(int1) & "]").Cells(StartRow_in_Table, 1).Value
Next

Mein Problem ist der Bereich mit den "?????".

Habe schon einiges probiert, aber bin daran gescheiter. :(

Was genau muss ich schreiben, dass auch dort der Inhalt aus "Array_Names(int1)" übernommen wird?

Grüße

----- ===== MC_Kay ===== -----