Was mache ich bloß falsch? Ich habe in Spalte "A" verschiedene Daten (nicht nur Zahlen) die sich ab und zu wiederholen.
A1
--------
Hund
Katze
Hund
Hund
Katze
Diese Daten sollen in eine ComboBox eingelesen werden und sie von dort weiterzuverarbeiten...In der ComboBox sollen jedoch keine Doppelnennungen auftauschen (also nur einmal Hund und Katze)!!!
In Excel kann man praktischer Weise so eine Funktion direkt benutzen.
Klickt mal in eurem Excel auf Daten, Filter, Autofilter...Sowas will ich in der ComboBox, die auf einer UserForm plaziert ist, haben....Hier mein Code (der leider (noch) nicht funzt)...
Private Sub UserForm_Initialize()
Dim zellenanzahl%
zellenanzahl = Cells(Cells.Rows.Count, 7).End(xlUp).Row
With Worksheets("VN Position")
ComboBox1.List = .Selection.ColumnDifferences("G6:G" & zellenanzahl).Value
End With
ComboBox1.ListIndex = 0
End Sub
Tja...was nun? URs hatte da mal eine Lösung angeboten mit Zellen kopieren, doppelte löschen usw. Die klappt so leider nicht...Ist auch nicht sooo elegant...