Herbers Excel-Forum - das Archiv

Combobox aufklappen ?

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

Betrifft: Combobox aufklappen ?
von: walter
Geschrieben am: 01.11.2003 19:52:13
Guten Abend Zusammen,
habe eine Frage.
Ich habe 2 Comboboxen, in der 1.Suche ich etwas aus und in der 2 erscheinen
dann die verschiedene auswahl.
Es Funktioniert allse prima.
Ich möchte das die 2 Combobox dann direkt aufgeklappt ist um so das anklicken
zu verhindern, also direkt meine verschiedenen Muster ansehen kann und entsprechend anklicken. Die Länge des Anzeigefeldes sollte 20 Zeilen sein.
Geht das ???
Gruss Walter

Bild

Betrifft: AW: Combobox aufklappen ?
von: K.Rola
Geschrieben am: 01.11.2003 21:21:41
Hallo,

im Change- Ereignis(oder auch Click) der ersten Combobox:
Combobox2.dropdown
Die Eigenschaft ListRows der 2.Box auf 20 einstellen.

Gruß K.Rola
Bild

Betrifft: AW: Combobox aufklappen ?
von: walter
Geschrieben am: 02.11.2003 13:22:28
Hallo K.Rola,
herzlichen Dank, funktioniert die Länge.
Ergänzend möchte ich allerding, daß ich nicht ohne anzuklicken sondern direkt
die zeilen geöffnet werden.
Geht das ???
Gruss Walter
Bild

Betrifft: AW: Combobox aufklappen ?
von: K.Rola
Geschrieben am: 02.11.2003 14:14:46
Hallo,

da müsstest du zumindest ein Ereignis nennen, bei dem das
passieren soll. Irgendwas muss ja schließlich das Aufklappen
auslösen. Alternativ eine Listbox benutzen.

Gruß K.Rola
Bild

Betrifft: AW: Combobox aufklappen ? nochmal
von: walter
Geschrieben am: 02.11.2003 15:27:01
Hallo,
ja RICHTIG.
Das Ereignis wird ausgelöst wenn ich die Comb.1 betätige und dort einen Hersteller auswähle.
Beispiel: Auswahl= Audi, VW, Merceds
Klicke ich jetzt vw an dann zeigt in Comb.2 die einzelnen Fahrzeugtypen an, und dies sollte dann nach möglichkeit aufgeklappt also direkt sichtbar sein.

Hier meine Makros:



Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("GF-Tab").Visible = True
Sheets("GF-Tab").Unprotect ("ww")
If ComboBox1.Value = "Haus" Then
If ComboBox1.Value <> "" Then
ComboBox2.RowSource = ComboBox1.Value
ComboBox2.ListIndex = 0 ' ersten Wert anzeigen
End If
'ComboBox2.DropDown =
ComboBox2.ListRows = 20
Application.ScreenUpdating = True
End Sub





Private Sub ComboBox2_Change()
Worksheets("Datenbank").Range("G1") = ComboBox2.Value
End Sub



Gruss Walter
Bild

Betrifft: AW: Combobox aufklappen ? nochmal
von: K.Rola
Geschrieben am: 02.11.2003 16:03:40
Hallo,

da steige ich nicht durch:
ComboBox2.RowSource = ComboBox1.Value
Sollen das benamte Bereiche sein oder was?

Gruß K.Rola
Bild

Betrifft: AW: Combobox aufklappen ? nochmal
von: walter
Geschrieben am: 02.11.2003 16:41:44
Hallo nochmal,
habe dies Beispiel von Hajo mir mal kopiert.
Zur Erklärung:
In der Comb.1 soll der Hersteller ausgeählt werden (funktioniert auch).
In der Comb.2 werdendann die einzelnen Typen ausgeählt. (funktioniert ebenfalls)
Gruss Walter
 Bild
Excel-Beispiele zum Thema " Combobox aufklappen ?"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox