Bedingte ComboBoxen-Befüllung

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

Beiträge aus den Excel-Beispielen zum Thema "Bedingte ComboBoxen-Befüllung"