Private Sub ComboBox33_Change()
If ComboBox33.ListIndex > -1 Then ComboBox13.RowSource = "Listen!Q1"
End Sub
Private Sub ComboBox33_Change()
If ComboBox33.ListIndex = -1 Then ComboBox13.Text = "Bitte erst ComboBox 33 Auswahl treffen!"
End Sub
Private Sub ComboBox33_Change()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End Sub
Private Sub UserForm_Activate()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End Sub
Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Wähle Deine UserForm aus: Klicke im Projekt-Explorer auf die UserForm, die die ComboBoxen enthält.
Füge den folgenden Code in die UserForm ein:
Private Sub ComboBox33_Change()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End Sub
Private Sub UserForm_Activate()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End SubHierbei wird ComboBox13 mit dem Wert aus Listen!Q1 gefüllt, wenn ComboBox33 leer ist.
Setze die Eigenschaften: Stelle sicher, dass die MatchRequired-Eigenschaft für ComboBox13 auf False gesetzt ist, damit die ComboBox einen leeren Wert akzeptiert.
Teste die Funktionalität: Starte die UserForm und überprüfe, ob der Text aus Q1 angezeigt wird, wenn ComboBox33 leer ist.
Fehler: ComboBox13 zeigt keinen Wert an.
MatchRequired-Eigenschaft auf False gesetzt ist. Prüfe auch den Bereich Listen!Q1.Fehler: Der Code wird nicht ausgeführt.
Wenn die oben genannte Methode nicht funktioniert, kannst Du auch folgende Alternativen ausprobieren:
Mit einer If...Then-Abfrage:
Private Sub ComboBox33_Change()
If ComboBox33.ListIndex = -1 Then
ComboBox13.Text = "Bitte erst ComboBox 33 Auswahl treffen!"
End If
End SubDiese Methode zeigt einen Hinweistext an, wenn keine Auswahl getroffen wurde.
Verwendung von ComboBox.Enabled: Du kannst die ComboBox so einstellen, dass sie deaktiviert wird, bis eine Auswahl in der ersten ComboBox getroffen wurde.
Einfaches Beispiel: In ComboBox33 wählst Du einen Namen aus. Wenn die Auswahl entfernt wird, zeigt ComboBox13 den Text "Bitte erst ComboBox 33 Auswahl treffen!" an.
Erweiterte Logik: Wenn Du mehrere ComboBoxen hast, kannst Du die Logik so erweitern, dass sie auf andere ComboBoxen reagiert, indem Du mehrere If...Then-Abfragen verwendest.
Nutze Debug.Print, um Fehler im Code zu finden.
Wenn Du UserForms erstellst, denke daran, die Benutzeroberfläche übersichtlich und intuitiv zu gestalten.
Verwende die ListIndex-Eigenschaft, um schnell zu überprüfen, ob eine Auswahl in einer ComboBox getroffen wurde.
1. Wie kann ich sicherstellen, dass die ComboBox nur bestimmte Werte akzeptiert?
Du kannst die MatchRequired-Eigenschaft auf True setzen, um sicherzustellen, dass nur zulässige Werte ausgewählt werden können.
2. Was kann ich tun, wenn mein Code nicht funktioniert? Überprüfe, ob der Code im richtigen Modul platziert ist und ob die Eigenschaften der ComboBoxen korrekt eingestellt sind. Debugge den Code, um festzustellen, wo der Fehler liegen könnte.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen