Fluides Ending für Listboxen, Ansprechen
18.04.2023 08:32:17
Shouchen
Hallo allerseits,
ich hätte eine Frage bezüglich des Ansprechens von (Name) Properties in Userforms via VBA:
Ich will diverse Listboxen, mit dem gleichen Parameter füllen und bisher ist meine Lösung wie folgt:
Private Sub UserForm_Initialize()
i = 2
Do While Worksheets("Hinterlegte Allgemeines").Cells(i, 1) > ""
Me.Monster_AbfragePrio_Ausda Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
Me.Monster_AbfragePrio_Ausstr Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
Me.Monster_AbfragePrio_Charme Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
Me.Monster_AbfragePrio_Empa Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
Me.Monster_AbfragePrio_Gesch Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
Me.Monster_AbfragePrio_Int Worksheets("Hinterlegte Allgemeines").Cells(i, 1)
i = i + 1
Loop
End Sub
Das funktioniert auch tadellos, nur würde ich gerne wissen, ob es vielleicht kürzel gibt, womit alle diese Listboxen angesprochen werden können, ohne dass man es repetativ im Code hat.
Beispiel wäre, wenn man ein Sternchen hinter den Name String setzt, dass funktioniert aber so nicht:
"Me.Monster_AbfragePrio_*"
Dann könnte man sich, bei vielen Listboxen und geschickter Deklarationswahl, viel Arbeit sparen und eine Bereicherung für die Zukunft sein.
Mit google habe ich leider bisher nichts dazu gefunden.
Vielen Dank im voraus. :)
Der Benni