Hallo zusammen,
ich bin blutiger Anfänger in Sachen VBA und hätte da mal eine Frage.
Ich habe 3 ComboBoxes. Diese fülle ich Standardmäßig bei der Initialisierung. Wenn nun der Benutzer einen bestimmten Auswahlpunkt wählt, dann soll eine der anderen beiden verschwinden. Soweit klappt es auch. Allerdings soll in der noch vorhandenen dritten Box ein Item enfernt werden. Das funktioniert auch noch. Mein Problem besteht nun darin, diesen Item wieder hinzuzufügen, wenn in ComboBox1 eine erneute Änderung durchgeführt wird. Hier streikt das Programm. Leider habe ich keine Ahnung an was das liegen könnte.
Hier mal ein paar Codeschnipsel, die ich mir überlegt habe, die aber leider nicht funktionieren:
Public Sub ComboBox3_Change()
Dim flag As Boolean
flag = True
Select Case ComboBox3.ListIndex
Case 4:
ComboBox10.Visible = False
ComboBox9.RemoveItem 4
flag = False
Case Else:
ComboBox10.Visible = True
If flag = False Then
ComboBox9.AddItem "80 Tasten" 'hier soll Item 4 wieder hinzugefügt werden.
End If
flag = True
End Select
End Sub
leider weiß ich nicht wo mein fehler liegt. Wäre super wenn mir da jemand weiterhelfen könnte!
grüße spitzinger |