Nur gefilterte Zeilen ohne Duplikate in Combobox
17.01.2007 08:31:29
Steffen
ich möchte in meine Combobox1 (Listenbox) nur die vom Autofilter angezeigten Zeilen von Spalte A (und später auch von anderen Spalten) ohne doppelte Werte einlesen. Ich habe dieses Script als Grundlage was schon die Werte ohne doppelte Werte einließt aber leider nicht den Autofilter berücksichtigt.
Ich komme nicht weiter mit der Autofilter modifikation. Kann mir da wer helfen ?
Private Sub UserForm_Initialize()
Dim Zeile2 As Range
Dim Zeile As Long
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets("Tabelle1")
Dim i As Integer
' Alte Eintragungen löschen
ComboBox1.Clear
' Zeilen bis zum Ende der Tabelle durchsuchen:
For Zeile = 2 To WS.UsedRange.Rows.Count
If WS.Cells(Zeile, 1).Value <> ComboBox1.Text Then
For i = 0 To ComboBox1.ListCount - 1
' Inhalt schon geseichert? Dann nächste Zeile
If ComboBox1.List(i) = WS.Cells(Zeile, 1).Text Then GoTo weiter
Next i
' Inhalt noch nicht gespeichert? Dann hinzufügen.
ComboBox1.AddItem (WS.Cells(Zeile, 1))
End If
weiter:
Next Zeile
End If
End Sub
Danke und Gruß
Steffen