2 ComboBoxen in einer UserForm füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

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

Hallo,
ich möchte das gleiche machen wie Dirk unten beschrieben hat und habe deshalb den
Threat 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

Beliebteste Forumthreads (12 Monate)

2 ComboBoxen in einer UserForm füllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 ComboBoxen in einer UserForm füllen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread