nachdem ich ja nun die Sch... combobox mit Werten füllen kann, möchte ich als Ergänzung;
Es sollen keine doppelten Einträge aufgenommen werden. Muss ich den komplizierten schritt über eine Pivot nehmen oder gibt es da wat code für?
Gruß Marcel
Private Sub UserForm_Initialize() 'Combobox ohne doppelte Einträge
Dim ws As Worksheet
Dim iZeile As Long
Set ws = Worksheets("Tabelle1")
For iZeile = 1 To ws.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(ws.Range("A1:A" & iZeile), ws.Cells(iZeile, 1)) = 1 Then _
ComboBox1.AddItem ws.Cells(iZeile, 1)
Next iZeile
End Sub