Combobox durchsuchen
26.02.2015 12:57:47
Albert
ich lasse beim Starten der Userform eine Combobox füllen.
Später möchte ich einen Wert in die selbe Combobox geben. Hierbei kommt der Laufzeitfehler 380 (unzulässige Verwendung der value Eigenschaft).
Nun versuche ich meinen Wert mit dem Inhalt der Combobox zu vergleichen.
Hierzu verwende ich diesen Code...
Sub test()
For a = 0 To ComboBox26.ListCount
Debug.Print ComboBox26.List(a) & " / " & Sheets("Kontaktdaten").Cells( _
rngName.Row, 4).Text
If ComboBox26.List(a) = Sheets("Kontaktdaten").Cells(rngName.Row, 3). _
Text Then
ComboBox26.Value = ComboBox26.List(a)
Debug.Print "Eintrag in Combobox durchgeführt"
Exit For
End If
Next a
End Sub
Könnte mir hier jemand weiterhelfen?
Gruß
A.
Anzeige