Ich bekam gestern Abend von Ramses eine Lösung.
Leider wird bei unten stehendem Text in die ComboBox nichts eingelsen:
With Me.ComboBox4
For i = 1 To 12
.AddItem Format(i, "00")
Next i
' For i = 21 To 26
' .AddItem Format(i, "00")
' Next i
' For i = 91 To 94
' .AddItem Format(i, "00")
' Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
Nehme ich jedoch den Text ab For i = 21 To 26 weg, dann erfolgt das einlesen.
Wo könnte hier bitte der Fehler liegen?
Danke
Josef