Office: Fehler bei Befüllung einer Combobox

Hallo zusammen,

ich befülle die Combobox "ComboBoxVertragspartner" mit Werten aus der Tabelle "Administration_Rahmenverträge" mit folgendem Code:


Dim laenge4 As Variant
Me.ComboBoxVertragspartner.Clear
For laenge4 = 4 To Worksheets("Administration_Rahmenverträge").Range("a65536").End(xlUp).Row

If WorksheetFunction.CountIf(Worksheets("Administration_Rahmenverträge").Range("A4:A" & laenge4), Worksheets("Administration_Rahmenverträge").Cells(laenge4, 1)) = 1 Then
Me.ComboBoxVertragspartner.AddItem Worksheets("Administration_Rahmenverträge").Cells(laenge4, 1)
End If

Next

Me.ComboBoxVertragspartner.ListIndex = 1

Beim Aufruf der UserForm erhalte ich dann den Hinweis "Laufzeitfehler '380': Eigenschaft ListIndex konnte nicht gesetzt werden. Ungültiger Eigenschaftswert".

Ich google mir hier schon seit Ewigkeiten die Finger wund und checke alle möglichen Lösungen, finde aber leider den Fehler nicht.

Kann mir jemand von Euch/Ihnen helfen?

Danke schon im Voraus!

:)

 

was wir sehen ist das Du ListIndex nicht verwendest. Eine Datei wäre nicht schlecht.

 

Hallo,

vermutlich gibt es weniger als 2 Elemente in der Combobox - der Listindex 1 verweist nämlich auf das 2. Element der Liste (Index 0 wäre das erste).

Lass Dir die Anzahl der Elemente ausgeben, bevor Du den Listindex setzt und prüfe das Ergebnis:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

genau das war es! Danke!!!

Da nimmt mein Tag doch noch ein gutes Ende *wink.gif*

LG,
Gemini77