Ich muß mich nochmal melden. Ich habe eine etwas knifflige Aufgabe und komme nicht weiter ich hoffe jemand kennt sich da besser aus wie ich und kann helfen.
Was das Script momentan macht :
-es ließt die gefilterten Werte des Autofilter eines Worksheets ohne Dopplungen in die Combobox in meiner Userform
Was es machen soll :
- es soll zusätzlich noch die Einträge in der Combobox alphabetisch anzeigen
Hier ist das Script:
Private Sub UserForm_Initialize()
Combo_Fuellen
End Sub
Sub Combo_Fuellen()
Dim WS As Worksheet, Zeile2 As Range, _
Zeile As Long, i As Integer, ok As Boolean
Set WS = ThisWorkbook.Worksheets("Tabelle1")
' Alte Eintragungen löschen
Me.ComboBox1.Clear
' Zeilen bis zum Ende der Tabelle durchsuchen:
For Zeile = 2 To WS.UsedRange.Rows.Count
If Not WS.Rows(Zeile).Hidden Then
''wenn Zeile sichtbar
If WS.Cells(Zeile, 1).Value Me.ComboBox1.Text Then
ok = True
For i = 0 To Me.ComboBox1.ListCount - 1
'Inhalt schon gespeichert? Dann nächste Zeile
If Me.ComboBox1.List(i) = WS.Cells(Zeile, 1).Text Then
ok = False
Exit For
End If
Next i
If ok Then
'Inhalt noch nicht gespeichert? Dann hinzufügen.
Me.ComboBox1.AddItem (WS.Cells(Zeile, 1))
End If
End If
End If
Next Zeile
Set WS = Nothing
End Sub
Vielen Dank für eure Hilfe
Gruß
Steffen