Vorbelegung ComboBox
11.10.2016 14:14:04
Rookie
ich hab da ein kleines Problem und ich finde einfach keine Lösung:
Ich habe eine ComboBox mit Daten aus einer Liste (ListObject) befüllt. Funktioniert auch soweit.
Das Problem ist folgendes:
Ich möchte, dass die Combobox nicht mit dem ersten Eintrag der Liste befüllt wird, sondern mit dem zweiten oder dritten.
Ich habe es mit der Eingenschaft .ListIndex versucht, diese funktioniert aber nur mit 0. Bei 1,2,3 usw. kommt der Fehler "Unglültiger Eigenschaftswert.
Ich hab es auch mit .Text = "String" versucht, aber das funktioniert überhaupt nicht.
Hier der Code:
Private Sub Dropdown(ByVal strDropKategorie As String, ByRef cbo As ComboBox)
'Variablendeklaration
Dim myTable As ListObject
Dim myArray As Variant
Dim TempArray As Variant
Dim x As Long
'Liste auswählen
Set myTable = ThisWorkbook.Worksheets("Listen").ListObjects(strDropKategorie)
'Datenfeld aus Liste erstellen
TempArray = myTable.DataBodyRange
'Liste in horizontale umwandeln
myArray = Application.Transpose(TempArray)
'Datenfeld in Combobox übernehmen
For x = LBound(myArray) To UBound(myArray)
With cbo
.AddItem myArray(x)
.ListIndex = 0
End With
Next x
End Sub
Vielen Dank schon mal für eure Hilfe
Gruß
Stefan