Combobox / Autofilter
10.01.2008 22:49:58
Gerhard
I werd no narrisch mit der Suchfunktion hier :(. Ich bin mir sicher das diese Frage schon mal gestellt worden ist, weil ich sie schon gelesen habe, aber ich finde den Post nicht mehr...
Vllt is jemand so nett und hilft mir bei der Suche oder bei der Lösung.
Habe n UF mit ner ComboBox. Mittels CommandButton blende ich mehere Zeilen über Autofilter aus.
Nun möchte ich diese Combobox mit den übrig gebliebenen Werten sortiert und ohne doppelte befüllen.
Das einzigste was ich gefunden habe is ein Code von Hajo, aber ich krieg das ned gebacken hier die ausgeblendeten Zeilen rauszuschmeissen...
Private Sub UserForm_Initialize()
ActiveSheet.Unprotect "12345"
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Selection.AutoFilter Field:=45, Criteria1:="="
Selection.AutoFilter Field:=42, Criteria1:=""
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).SpecialCells( _
xlCellTypeLastCell).Row, Rows.Count)
ReDim Preserve StListe(0 To Loletzte - 2) ' Array Dimensionieren
For LoI = 7 To Loletzte ' Werte in Array schreiben ab Zeile 2
StListe(LoI - 2) = Cells(LoI, 1)
Next LoI
' Liste sortieren von A nach Z
Sort_Z_A StListe, LBound(StListe), UBound(StListe) ' Lbound kleinster Wert,UBound Größter _
Wert
ComboBox1.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 ComboBox1.AddItem StListe(LoI)
Next LoI
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="12345"
End Sub
thx n greetz
Gerhard Just