Listbox in userform ansprechen

Forumthread: Listbox in userform ansprechen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Listbox in userform ansprechen

02.10.2018 15:25:14

Mars

Hallo
ich möchte bei der Eingabe einer Zahl in TextBox "tbx_AnzantObj" Listboxen sichtbar machen
Die Listboxen sind bereits auf der UF, unsichtbar vorhanden.
Bei Eingabe von "3" in der TextBox sollten nun drei Listboxen sichtbar werden.
Die Listboxen haben die Namen "libx_antObj1" , "libx_antObj2" usw

Private Sub tbx_AnzantObj_Change()
If tbx_AnzantObj = "" Then Exit Sub
Dim i!
For i = 1 To CSng(tbx_AnzantObj)
ListBox("libx_antObj" & i).Visible = True
Next i
End Sub

So funkt. es leider nicht. Wie spreche ich die Listboxen in der Schleife richtig an ?
Danke & Gruß
Mars

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox in userform ansprechen

02.10.2018 15:29:23

daniel
AW: Listbox in userform ansprechen

02.10.2018 15:32:40

Crazy
AW: Listbox in userform ansprechen

02.10.2018 15:39:03

Mars

AW: Listbox in userform ansprechen

02.10.2018 15:29:23

daniel

Hi
wenn du in einer Userform ein Steuerelement über seinen "berechneten" Namen ansprechen willst, musst du die Controls-Auflistung verwenden:

Controls("libx_antObj" & i).Visible = true

Gruß Daniel

AW: Listbox in userform ansprechen

02.10.2018 15:32:40

Crazy

Hallo
vielleicht so?

Private Sub tbx_AnzantObj_Change()
If tbx_AnzantObj = "" Then Exit Sub
Dim i!
For i = 1 To CSng(tbx_AnzantObj)
Controls("libx_antObj" & i).Visible = True
Next i
End Sub

MfG Tom

AW: Listbox in userform ansprechen

02.10.2018 15:39:03

Mars

Hallo,
genau so ☺
Danke euch beiden