Combobox ohne Dupl. füllen

Walburga · 2007-07-26T19:32:19+00:00

Ein freundliches Hallo allerseits Wie kann ich eine Combobox ohne doppelte Werte aus einer Spalte füllen. (ohne Spezialilter) Wer weiss Rat und hat den richtigen Tipp? Gruss Walburga

Hallo Walburga,
das verstehe ich jetzt erstmal auch nicht, nach dem sortieren ist es ein Datensatz mehr. Ändere den Code


Private Sub UserForm_Initialize()
Dim StListe() As String                     ' Array für die Werte
Dim Loletzte As Long                        ' letzte Zeile in Spalte A
Dim LoI As Long                             ' Schleifenvariable
'   unabhängig von Excelversion für Spalte A (1)
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
ReDim Preserve StListe(0 To Loletzte - 2)   ' Array Dimensionieren
For LoI = 3 To Loletzte                     ' Werte in Array schreiben ab Zeile 2
StListe(LoI - 3) = Cells(LoI, 1)
Next LoI
'   Liste  sortieren von A nach Z
ListBox1.AddItem StListe(1)                         ' ersten Wert in Listbox schreiben
For LoI = LBound(StListe) + 2 To UBound(StListe)
'       Vergleich ob aktueller Wert verschieden vom vorherigen Wert
If StListe(LoI)  StListe(LoI - 1) Then ListBox1.AddItem StListe(LoI)
Next LoI
End Sub

Gruß Hajo

Hallo Walburga,
ich habe wohl zu intensiv getestet. Es war nur ein Fehler im ersten Teil.


Private Sub UserForm_Initialize()
Dim StListe() As String                     ' Array für die Werte
Dim Loletzte As Long                        ' letzte Zeile in Spalte A
Dim LoI As Long                             ' Schleifenvariable
'   unabhängig von Excelversion für Spalte A (1)
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
ReDim Preserve StListe(0 To Loletzte - 2)   ' Array Dimensionieren
For LoI = 3 To Loletzte                     ' Werte in Array schreiben ab Zeile 2
StListe(LoI - 3) = Cells(LoI, 1)
Next LoI
'   Liste  sortieren von A nach Z
ListBox1.AddItem StListe(0)                         ' ersten Wert in Listbox schreiben
For LoI = LBound(StListe) + 1 To UBound(StListe)
'       Vergleich ob aktueller Wert verschieden vom vorherigen Wert
If StListe(LoI)  StListe(LoI - 1) Then ListBox1.AddItem StListe(LoI)
Next LoI
End Sub

Gruß Hajo

Forumthread: Combobox ohne Dupl. füllen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Combobox ohne Dupl. füllen

Forumthread: Combobox ohne Dupl. füllen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread