Combobox füllen
15.10.2019 14:26:41
Georg
ich versuche derzeit eine Combobox nach meinen Wünschen zu befüllen.
Mit
Sub fuellen3(Arbeitsblatt As String, Comboboxnr As Integer, Tabelle As String, Spalte As _
Integer)
Dim wks As Worksheet
Dim comborng As Range
Set wks = ThisWorkbook.Sheets(Arbeitsblatt)
Set comborng = wks.ListObjects(Tabelle).DataBodyRange.Columns(Spalte)
With comborng
Userform_Main.Controls("ComboBox" & Comboboxnr).RowSource = .Parent.Name & "!" & . _
Address
End With
Set wks = Nothing
Set comborng = Nothing
End Sub
Dies klappt aus soweit wunderbar.
Jetzt stehen in der Tabelle auch doppelte Werte, die ich gerne nur einmal in der combobox aufführen möchte.
Geht dies irgendwie mit der Filterfunktion? Oder wie geht man da am besten vor?
LG
Georg