Hallo zusammen,
ich bin auf der Suche nach einer Lösung für folgendes Problem:
Ich habe eine Userform erstellt mit zwei Comboboxen. Combobox 1 dient der Auswahl der Kategorie (z. B. Kategorie A) und Combobox 2 soll dann die Inhalte der Kategorie A (z. B. Auto 1, Auto 2... ) also in Abhängigkeit anzeigen. Nun habe ich für jede Kategorie eine Tabelle in einem separaten Tabellenblatt erstellt. Soweit funktioniert das auch :). Nur mein Problem ist, dass ich keine Lösung finde, wie es ohne eine ständige Codierung löse, wenn ich eine neue Kategorie/Tabelle hinzufüge. Ich suche nach einer Möglichkeit, dass Excel selbst je nach Auswahl in Combobox 1 in einem anderen Tabellenblatt nach der entsprechenden Tabelle sucht und den Inhalt dieser Tabelle in Combobox 2 zur Verfügung stellt. Meine bisherige Lösung sieht so aus
Private Sub KATGO_Change()
Select Case KATGO.Value
Case Is = "KATGO1" //Auswahl Combobox 1
KATGOAUSW.RowSource = "TBKATGO1" // Tabellenname
Case Is = "KATGO2"
KATGOAUSW.RowSource = "TBKATGO2"
Case Is = "KATGO3"
KATGOAUSW.RowSource = "TBKATGO3"
...
End Select
End Sub
Vielen Dank für eure Hilfe im Voraus.
Cheers
ich bin auf der Suche nach einer Lösung für folgendes Problem:
Ich habe eine Userform erstellt mit zwei Comboboxen. Combobox 1 dient der Auswahl der Kategorie (z. B. Kategorie A) und Combobox 2 soll dann die Inhalte der Kategorie A (z. B. Auto 1, Auto 2... ) also in Abhängigkeit anzeigen. Nun habe ich für jede Kategorie eine Tabelle in einem separaten Tabellenblatt erstellt. Soweit funktioniert das auch :). Nur mein Problem ist, dass ich keine Lösung finde, wie es ohne eine ständige Codierung löse, wenn ich eine neue Kategorie/Tabelle hinzufüge. Ich suche nach einer Möglichkeit, dass Excel selbst je nach Auswahl in Combobox 1 in einem anderen Tabellenblatt nach der entsprechenden Tabelle sucht und den Inhalt dieser Tabelle in Combobox 2 zur Verfügung stellt. Meine bisherige Lösung sieht so aus
Private Sub KATGO_Change()
Select Case KATGO.Value
Case Is = "KATGO1" //Auswahl Combobox 1
KATGOAUSW.RowSource = "TBKATGO1" // Tabellenname
Case Is = "KATGO2"
KATGOAUSW.RowSource = "TBKATGO2"
Case Is = "KATGO3"
KATGOAUSW.RowSource = "TBKATGO3"
...
End Select
End Sub
Vielen Dank für eure Hilfe im Voraus.
Cheers