ich möchte das gleiche machen wie Dirk unten beschrieben hat und habe deshalb den
Thread ausschnittsweise rauskopiert...
Leider funktioniert der von Ingo angegebene Code nicht bei mir!?!?
Ich habe zum Testen die Tabelle von Dirk kopiert und eben ein Userform
incl. 2 Comboboxen gemacht das auf die Tabelle angewendet wird.
Dummerweise erscheint jedoch immer eine Fehlermeldung in der Programmzeile:
Userform1.Combox1.Clear
entferne ich diese Programmzeile, erscheint der nächste Fehler in
UserForm1.ComboBox2.AddItem (Sheets("Tabelle1").Cells(i, 2))
Vielleicht kann mir ja jemand von Euch sagen was es zu beachten gilt!!!?
Grüße Fabio
_______________________________________________________________________________________
VON DIRK:
Ich habe eine UserForm mit zwei ComboBoxen. Die eine Combobox ist mit den Monatsnamen gefüllt. Die zweite ComboBox soll mit, in Abhängigkeit der Auswahl in der ersten ComboBox, Daten aus einer Tabelle gefüllt werden.
A..... B
------------
Monat Stadt
Januar Köln
Januar Dortmund
Januar Bochum
Januar Gladbach
Februar Duisburg
Februar Oberhausen
Februar München
Februar Hamburg
März Berlin
März Frankfurt
März Rostock
März Trier
April Aachen
April Leverkusen
April Bremen
April Gelsenkirchen
Wähle ich also z.B. in der ersten ComboBox den Monat Februar aus, dann sollen alle Daten die in der rechten Spalte, neben dem Monat Februar stehen, in der zweiten ComboBox angezeigt werden.
Die erste ComboBox wird nicht mit den Daten aus dieser Tabelle gefüllt.
Im vorraus schon einmal Danke.
Gruß Dirk
ANTWORT VON INGO:
Private Sub ComboBox1_Click()
Dim monat As String
Dim i As Integer
UserForm1.ComboBox2.Clear
monat = UserForm1.ComboBox1.Text
i = 2
Do While Sheets("Tabelle1").Cells(i, 1) <> ""
If Sheets("Tabelle1").Cells(i, 1) = monat Then
UserForm1.ComboBox2.AddItem (Sheets("Tabelle1").Cells(i, 2))
End If
i = i + 1
Loop
End Sub
mfG
Ingo