Listbox in userform ansprechen
02.10.2018 13:25:14
Mars
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
Danke & Gruß
Mars
Anzeige