habe momentan ein kleines Problem, und hoffe Ihr könnt mir helfen.
Ich möchte, wenn in cboKategorie ( ComboBox1 ) ein Wert ausgewählt ist,die dazu gehörigen Unterkategorien in cboUnterkategorie (ComboBox2)anzeigen und auswählen können.
Das Formular dazu wird auf dem Tabellenblatt "Übersicht" aufgerufen.
Die Namen der Kategorien und Unterkategorien befinden sich im Tabellenblatt "Listen",welche ich mit Namen vergeben habe.
Nur zeigt er mir immer den Laufzeitfehler 380: Eigenschaft RowSourcekonnte nicht gesetzt werden.Ungültiger Eigenschaftswert.
Anbei der Code:
Private Sub UserForm_Initialize()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows. _
Count)
With frmBuchen
.txtDatum.Value = Date
.txtBetrag.Value = 0
.cboKategorie.RowSource = "'Listen'!A2:A" & LoLetzte
.cboKategorie.ListIndex = 0
.cboWiederholung.List = Range("Wiederholung").Value
End With
End Sub
Private Sub cboKategorie_Change()
cboUnterkategorie.RowSource = cboKategorie.Value
cboUnterkategorie.ListIndex = 0
End Sub
Gruß Marco