Combobox aufklappen ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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

Beiträge aus den Excel-Beispielen zum Thema " Combobox aufklappen ?"