Unterkategorie Combobox
05.02.2021 15:03:29
Michael
Ich möchte zu meiner Kategorie zusätzlich eine Unterkategorie erstellen die sich nach Eingabe ändert
dies Betrifft aber nur die Ausgaben
Private Sub ComboBox_E_A_Change()
ComboBox_Kategorie.Clear
If ComboBox_E_A.Value = "Einkommen" Then
ComboBox_Kategorie.AddItem "Gehalt"
ComboBox_Kategorie.AddItem "BAföG"
ComboBox_Kategorie.AddItem "Krankengeld"
ComboBox_Kategorie.AddItem "Kindergeld"
ComboBox_Kategorie.AddItem "Nebenjob"
ComboBox_Kategorie.AddItem "Zuschüsse"
Else
If ComboBox_E_A.Value = "Ausgaben" Then
ComboBox_Kategorie.AddItem "Wohnen"
ComboBox_Kategorie.AddItem "Versicherungen"
ComboBox_Kategorie.AddItem "Finanzausgaben"
ComboBox_Kategorie.AddItem "Mobilität (fix)"
ComboBox_Kategorie.AddItem "Sonstige Verträge"
ComboBox_Kategorie.AddItem "Lebenshaltung"
ComboBox_Kategorie.AddItem "Mobilität (variabel)"
ComboBox_Kategorie.AddItem "Entertainment"
ComboBox_Kategorie.AddItem "Sonstige"
End If
End If
End Sub
Private Sub ComboBox_Kategorie_Change()
ComboBox_Unterkategorie.Clear
If ComboBox_Kategorie = "Wohnen" Then
ComboBox_Kategorie.AddItem "Miete"
ComboBox_Kategorie.AddItem "Strom"
ComboBox_Kategorie.AddItem "Telefon & Internet"
ComboBox_Kategorie.AddItem "GEZ"
End If
End Sub
beim testen wird in meiner Userform bei Unterkategorie nix angezeigt
https://www.herber.de/bbs/user/143643.xlsm