Combobox auf Listbox wechseln
16.07.2021 16:26:58
Aigner
Ein Problem das ich alleine nicht gelöst bekomme.
Habe eine Userform1 mit Textboxen, Comboboxen und Label, welche mit einem Code in einer anderen Userform2 in eine Textbox zusammengeführt werden.
Das funktioniert auch tadellos.
Ich möchte die Comboboxen durch Listboxen ersetzen. Scheint nicht so einfach zu sein, denn wenn ich im Code die Combobox auf Listbox umschreibe bekomme ich eine Fehlermeldung. "Das angegebene Objekt konnte nicht gefunden werden."
Hier der original Code noch mit Combobox.
Private Sub CommandButton1_Click()
Dim i As Integer, strOut As String
Const strDELIM As String = " / "
For i = 1 To 8
If Controls("Textbox" & i) "" And Controls("Combobox" & i) "" And Controls("Label" & i) "" Then
strOut = strOut & strDELIM & Controls("Textbox" & i) & " " & Controls("Combobox" & i) & " " & Controls("Label" & i)
End If
Next i
If Len(strOut) Then
Eingabe_MX.TextBox57.Value = Mid(strOut, Len(strDELIM) + 1)
End If
Unload Me
Eingabe_MX.TextBox57.SetFocus
End Sub
Hoffe es ist verständlich rübergekommen.
Danke schon mal im vorraus.
