habe hier das simple Problem, dass ich eine listbox in einer Userform mit daten der 5. Spalte füllen möchte.
Es ist wohl heute zu warm !!!
Für hilfe wäre ich dankbar!
Als Bonus vielleich noch, das keine doppelten Inhalte angezeigt werden!!
Mfg
Andre
Private Sub UserForm_Initialize()
Dim i As Integer
ActiveSheet.Columns(5).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For i = 2 To ActiveSheet.Cells(65536, 5).End(xlUp).Row
ListBox1.AddItem Cells(i, 5).Value
Next i
ActiveSheet.ShowAllData
End Sub