Ich habe eine UserForm mit einer Combobox und möchte dass in dieser Combobox Werte aus einer Spalte auszuwählen sind. Da ich aber nicht weiss wieviele Werte in der Spalte sind kann ich nicht gut die RowSource Eigenschaft benützen weil ich dann viele leere Auswahlmöglichkeiten in meiner Combobox riskiere. Deshalb habe habe ich mir gedacht ich benütz einfach eine Schleife mit additem bei der Initialisierung.
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim i As Integer
Sheets("Positionen").Select
Range("L2").Select
With UserForm1
i = 1
Do Until ActivelCell.Value = ""
.ComboBox1.AddItem Text:=ActiveCell.Value, Index:=i
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
End With
End Sub
Leider stosse ich auf bei ... Text:=... auf einen Fehler. Irgendwelche Ratschläge? Kann man eigentlich Rowsource auch dynamisch einstellen?
Danke im Voraus