Private Sub UserForm_Initialize()
Dim Land As String, znr As Long
znr = 2
Do While Cells(znr, 9) ""
Me.ComboBox1.AddItem Cells(znr, 9)
znr = znr + 1
Loop
Macht er auch, allerdings nimmt er auch doppelte Werte mit auf. Ich suche jetzt eine IF-Bedingung um das zu umgehen zu können. Habe es schon einmal so probiert, aber das Ergebnis stimmt noch nicht.
Private Sub UserForm_Initialize()
Dim Land As String, znr As Long
znr = 2
Do While Cells(znr, 9) ""
If Me.ComboBox1.Value Cells(znr, 9).Value Then
Me.ComboBox1.AddItem Cells(znr, 9)
znr = znr + 1
Else
znr = znr + 1
End If
Loop