ListBox einlesen, ohne Duplikate
08.12.2003 12:12:33
MikeS
ich brüte schon seit einiger Zeit über meinem Problem und komme einfach nicht weiter.
Wie kann ich die nur sichtbaren , mit AutoFilter gefilterten Werte in meine ListBox einlesen?
Jedoch ohne Duplikate !!!
Hier mein kläglicher Versuch:
'ComboBox ohne Duplikate füllen
With .cboBaureihe
For Zähler = 2 To intENDE
'nur sichtbare Zeilen auswerten
If Rows(Zähler).RowHeight > 0 Then
'1.Eintrag ComboBox hinzufügen
Anzahl = Anzahl + 1
If Anzahl = 1 Then
.AddItem Cells(Zähler, intBARE)
GoTo weiter
End If
'wenn neuer Wert vorkommt, hinzufügen
If Cells(Zähler, intBARE) <> Cells(Zähler + 1, intBARE) Then
'Wert der ComboBox hinzufügen
.AddItem Cells(Zähler, intBARE)
End If
End If
weiter:
Next Zähler
End With
Code eingefügt mit Syntaxhighlighter 2.5
Vielen Dank für Eure Hilfe.
Ciao MikeS