Herbers Excel-Forum - das Archiv
Bedingte ComboBoxen-Befüllung
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ComboBox
- Bedingte ComboBoxen-Befüllung von Vliegen vom 11.04.2005 10:32:01
- AW: Bedingte ComboBoxen-Befüllung - von Boris am 11.04.2005 10:49:27
- Im Original natürlich .Value anstatt .Text - von Boris am 11.04.2005 10:50:45
- AW: Im Original natürlich .Value anstatt .Text - von Vliegen am 11.04.2005 12:36:27
- AW: Im Original natürlich .Value anstatt .Text - von Vliegen am 11.04.2005 22:47:28
- AW: Im Original natürlich .Value anstatt .Text - von Vliegen am 11.04.2005 22:47:28
- AW: Im Original natürlich .Value anstatt .Text - von Vliegen am 11.04.2005 12:36:27
- Im Original natürlich .Value anstatt .Text - von Boris am 11.04.2005 10:50:45
 |
Betrifft: Bedingte ComboBoxen-Befüllung
von: Vliegen
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
 |
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
|
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
|
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
|
Betrifft: AW: Im Original natürlich .Value anstatt .Text
von: Vliegen
Geschrieben am: 11.04.2005 22:47:28
Frage noch offen
| |