ich erstelle gerade ein Excel-Formular. Dazu habe ich in VBA eine USerForm angelegt.
In dieser UserForm sind nun u.a. zwei ComboBoxen enthalten (im Code zu finden mit der Abkürzung "cmb").
Jetzt hätte ich gerne, dass:
Wenn in cmbVM nicht der erste Wert der Liste (.listindex0) dann soll in cmbNaegel kein Wert sichtbar sein (.Listindex=-1). Das klappt auch soweit.
Jetzt möchte ich aber auch, dass, wenn nun in cmbVM der erste Wert doch ausgewählt wird (.listindex=0), dann soll in cmbNaegel ebenfalls der erste Wert (.listindex=0) ausgewählt werden.
Ich hab das mal mit folgendem Code probiert, aber damit kommt die Fehlermeldung "laufzeitfehler 380: Eigenschaft ListIndex konnte nicht gesetzt werden. Ungültiger Eigenschaftswert."
Folgender Code steht dafür im Code der UserForm:
Private Sub UserForm_Initialize()
With Me.cmbNaegel
For Each rngNaegel In Application.Range("H.Nägel")
.AddItem rngNaegel.Value & ""
Next
.ListIndex = 0
End With
End Sub
__________
Private Sub cmbVM_Change()
With Me
If .cmbVM.ListIndex 0 Then
.cmbNaegel.ListIndex = 0
.cmbNaegel.Enabled = False
Else
.cmbNaegel.Enabled = True
.cmbNaegel.ListIndex = 0
End If
End With
End Sub
Kann mir jemand da weiterhelfen. Wäre echt super.
Vielen Dank schonmal
Liebe Grüße
Cooper