Value-Eigenschaft für Combobox setzen
27.05.2019 15:34:15
Johannes
ich habe folgendes Problem und komme einfach auf keine Lösung:
Ich habe zwei Komboboxen in einer Userform (Style = frmDropDownList)
Die erste Kombobox "cboFahrzeugtyp" wird bereits beim Aufruf der Userform initialisiert. Abhängig von der entsprechenden Auswahl, die der Benutzer in dieser tätigt, wird die zweite Kombobox "cboBezeichnung" mit Werten gefüllt. Soweit so gut...
Der Code bei Auswahl eines Wertes aus "cboFahrzeugtyp" ist wie folgt:
Private Sub cboFahrzeugtyp_Change()
Dim strFahrzeugtyp As String
Dim strTable As String
strFahrzeugtyp = cboFahrzeugtyp.Value
strTable = "tbl_" & strFahrzeugtyp
With cboBezeichnung
.Enabled = True
.Value = "Bitte wählen ..."
.List = wsData.ListObjects(strTable).ListColumns(1).DataBodyRange.Value
.SetFocus
End With
End Sub
Probleme bereitet mir die Value-Eigenschaft der zweiten Kombobox. Sobald eine Auswahl in cboFahrzeugtyp getätigt wurde, will ich das dort "Bitte auswählen ..." erscheint. Beim ersten Mal funktioniert das auch wunderbar. Entscheidet sich der Benutzer jedoch dazu, nochmals einen anderen Wert aus cboFahrzeugtyp auszuwählen, wird die Kombobox cboBezeichnung mit neuen Werten gefüllt und ich hätte erneut gerne als .Value = "Bitte auswählen ..." hinterlegt. Hier bekomme ich dann allerdings einen Laufzeitfehler 380: Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Ich wäre super dankbar, wenn hier jemand eine Lösung hätte.
Vielen Dank im Voraus,
Johannes