Private Sub optNachKategorie_Click()
Dim rngZelle As Range
cbKategorie.Clear
cbKategorie.Enabled = True
For Each rngZelle In Tabelle6.UsedRange
If rngZelle.Value "" Then
cbKategorie.AddItem (rngZelle.Value)
End If
Next
cbKategorie.ListIndex = 1
End Sub
Der Fehler ist in der Zeile vor End Sub . Ich bekomme den Laufzeitfehler 380 - "Eigenschaft ListIndex konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert."
Wie kann ich das beheben? Ich möchte einfach, das der 1. Eintrag der in der Combobox steht.
Lg Lukas