Thema Datum  Von Nutzer Rating
Antwort
Rot Zugriff auf Userform mit dynamischem Pfad
 26.03.2020 23:24:59 MC_Kay
NotSolved
27.03.2020 01:06:54 Mackie
Solved
27.03.2020 09:19:22 MC_Kay
Solved

Ansicht des Beitrags:
Von:
MC_Kay		 Datum:
26.03.2020 23:24:59		 Views:
905		 Rating:
     
Antwort:
  Ja
Thema:
Zugriff auf Userform mit dynamischem Pfad

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:

?
1
2
3
4
5
6
7
8
9
10
11
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 ===== -----

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zugriff auf Userform mit dynamischem Pfad
 26.03.2020 23:24:59 MC_Kay
NotSolved
27.03.2020 01:06:54 Mackie
Solved
27.03.2020 09:19:22 MC_Kay
Solved