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