Herbers Excel-Forum - das Archiv

Bedingte ComboBoxen-Befüllung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Bedingte ComboBoxen-Befüllung
von: Vliegen

Geschrieben am: 11.04.2005 10:32:01
Hallo allesamt,
Habe mit Hilfe des Forums ein Formular mit mehreren CombBoxen erstellt. Die ComboBoxen-Items werden beim Enter-Ereignis aus einer Datenbank eingelesen. Und zwar in Abhängigkeit der Auswahl in den voranstehenden ComboBoxen. Allerdings klappt das ganze bislang nur teilweise, manchmal bleibt eine ComboBox leer. Ich steige nicht recht hinter den Fehler.
Hier der Link zu einer Datei mit einem Musterformular.
Das Problem in diesem Beispiel tritt erst beim Befüllen der ComboBox5 auf weil hier gleiche Werte für alle Datensätze existieren.
https://www.herber.de/bbs/user/20962.xls
Freue mich über alle Tipps und Korrekturvorschläge.
Gruss,
Francois
Bild

Betrifft: AW: Bedingte ComboBoxen-Befüllung
von: Boris

Geschrieben am: 11.04.2005 10:49:27
Hi,
dein Beispiel kann nur funktionieren, wenn du überall die Werte aus Zeile 2 einliest - also:
Belgien - Brüssel - 1a - qwertzuiop
Dann liefert auch die Combobox5 das gewünschte "aa".
Denn in allen anderen Fällen liefert dir die If-Abfrage
If Err = 0 And _
Cells(iRow, 1) = ComboBox1.Text And _
Cells(iRow, 2) = ComboBox2.Text And _
Cells(iRow, 3) = ComboBox3.Text And _
Cells(iRow, 4) = ComboBox4.Text Then
ComboBox5.AddItem Cells(iRow, 5)

logischerweise immer FALSE.
Grüße Boris
Bild

Betrifft: Im Original natürlich .Value anstatt .Text
von: Boris
Geschrieben am: 11.04.2005 10:50:45
Hi,
...das hatte ich nur testweise mal geändert.
Grüße Boris
Bild

Betrifft: AW: Im Original natürlich .Value anstatt .Text
von: Vliegen

Geschrieben am: 11.04.2005 12:36:27
Hallo Boris,
Oh ich Schaf !
Nur mal der Sicherheithalber.
Damit es klappt müsste ich neben iRow verschiedene Variablen deklarieren (je Spalte eine) und dann verschiedene Schleifen in einander verschachteln.
Allerdings übersteigt diese Aufgabe vermutich meine VBA-Fähigkeiten.
Falls also einer das Beispiel entsprechend verändern möchte wäre ich ihr/ihm sehr dankbar.
Gruss,
François
Bild

Betrifft: AW: Im Original natürlich .Value anstatt .Text
von: Vliegen
Geschrieben am: 11.04.2005 22:47:28
Frage noch offen
 Bild
Excel-Beispiele zum Thema "Bedingte ComboBoxen-Befüllung"
Bedingter Mittelwert Jahreskalender und bedingte Formatierung
Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog Bedingte Formatierung auslesen
Über die bedingte Formatierung den Minimalwert markieren Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern
Bedingte Formatierung in Abhängigkeit eines Zellkommentars Markierung von Formeln über bedingte Formatierung
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen Tabellenvergleich über die bedingte Formatierung