Mit untenstehenden Code wird in cboNamen ohne Doppelte eingelesen. Dies geschieht aber leider nur wenn keine Leerzeilen vorhanden sind. Wie sollte der Code ausschauen, daß vor dem "FilterKopieren" die "leeren" entfernt werden, bzw. doppel u. leer filtern.?
Private Sub UserForm_Initialize()
Dim rng As Range
Set rng = Columns(1)
Workbooks.Add 1
rng.Copy Columns(1)
Columns(1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
Columns(1).Delete
Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
cboNamen.List = Range("A1").CurrentRegion.Value
ActiveWorkbook.Close savechanges:=False
End Sub
Danke & Gruss
Lorenz