Combobox und Autofilter

Question

Hallo Leute!
Ich habe eine Combobox welche mit einer Tabelle verbunden ist,
dazu habe ich eine TextBox in der ein Buchstabe eingegeben wird .Dieser Buchstabe setzt den Autofilter in meiner Tabelle.Wie muß ich vorgehen, daß die Autofilterauswahl in der Combobox angezeigt wird?
Bisher zeigt die Combobox trotz gesetztem Autofilter die gesamte Liste von A-Z an.

Gruß bage

Answer 1

Hi,

welche ComboBox verwendest du - Steuerelemente-Toolbox oder Formular-Symbolleiste?

Bis später,
Karin

Answer 2

Hi Karin ,
Da die Combobox auf einer UserForm ist benutze ich
die aus der Rerkzeugsammlung

Gruß bage

Answer 3

Hi,

laufe in einer Schleife über alle Zeilen und prüfe, ob RowHeight <> 0 ist - falls ja (Zeile ist durch den Filter nicht ausgeblendet), dann füge den Inhalt der Zelle(n) mittels AddItem in die ComboBox ein.

Bis später,
Karin

Answer 4

Hallo Karin,
habe deine Hinweise versucht, klappt aber nicht so richtig.
Der erste Teil mit den Zeilenhöhen funktioniert aber der Rest nicht.
Hier mal der Code:
Sub test()

Sheets("Tabelle1").Activate

Range("a4").Select
Do While ActiveCell.RowHeight = 0
If ActiveCell.RowHeight = 0 Then

ActiveCell.Offset(1, 0).Select
End If
Loop
Do While ActiveCell.RowHeight > 0
If ActiveCell.RowHeight > 0 Then
ActiveCell.Select
UserForm1.ComboBox1.AddItem cell
ActiveCell.Offset(1, 0).Select
End If
Loop

End Sub


Gruß bage

Answer 5

Hi,

Dim lngZaehler As Long
With Worksheets("Tabelle1")
For lngZaehler = 4 To 30
If .Rows(lngZaehler).RowHeight <> 0 Then ComboBox1.AddItem .Cells(lngZaehler, 1)
Next lngZaehler
End With

Bis später,
Karin