Ich möchte in einer UserformCombobox die Einträge einer Spalte OHNE doppelte Einträge auflisten und in eine neue Tabelle ausgeben.
Kann jemand helfen?
Dank schon einmal vorweg
Gruss Klaus
Private Sub UserForm_Initialize()
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
Private Sub UserForm_Initialize()
Dim WS As Worksheet
Dim iZeile As Long
Set WS = Worksheets("Tabelle1")
For iZeile = 2 To WS.Range("B65536").End(xlUp).Row
If WorksheetFunction.CountIf(WS.Range("B2:B" & iZeile), WS.Cells(iZeile, 2)) = 1 Then _
ComboBox1.AddItem WS.Cells(iZeile, 2)
Next iZeile
End Sub
Private Sub UserForm_Initialize()
Dim lR As Long
Columns(256).Clear
lR = IIf([a65536] <> "", 65536, [a65536].End(xlUp).Row)
Range("A1:A" & lR).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[iv1], Unique:=True
lR = IIf([iv65536] <> "", 65536, [iv65536].End(xlUp).Row)
ComboBox1.RowSource = "IV1:IV" & lR
End Sub