Office: Combobox-Liste dynamisch anpassen aufgrund der Filtereinstellung

Ich habe in der Spalte A verschiedene Daten, welche mit einem Autofilter gefiltert werden können. Alle Werte in der Spalte A sollen in einer Combobox aufgeführt werden. Sind die Daten in der Spalte A nicht gefiltert oder so gefiltert, dass ein zusammenhängender Zellenbereich übrig bleibt (z.B. A2:A6), werden diese korrekt in der Combobox angezeigt. Werden die Daten jedoch so gefiltert, dass kein zusammenhängender Zellenbereich übrigbleibt (z.B. A2:A3 und A5:A7), dann bleibt die Combobox leer.

Hier noch der Code:

Private Sub Worksheet_Calculate()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Dim Bereich As Range
Set Bereich = Tabelle1.Range("A2:A7").SpecialCells(xlCellTypeVisible)
ActiveWorkbook.Names.Add _
Name:="Liste", RefersTo:=Bereich, Visible:=True

With Tabelle1.ComboBox1
.ListFillRange = "Liste"
End With

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub


Das Ganze ist etwas schwierig zu beschreiben, daher habe ich die Datei "Beispiel.xlsm" mitgeschickt. Ich bin für eure Hilfe dankbar.

 

Hi,

Code:

Private Sub Worksheet_Calculate()
   Dim rngZelle As Range
   Application.ScreenUpdating = False
   Tabelle1.ComboBox1.Clear
   For Each rngZelle In Tabelle1.Range("A2:A7").SpecialCells(xlCellTypeVisible)
      If rngZelle.RowHeight <> 0 Then Tabelle1.ComboBox1.AddItem rngZelle
   Next rngZelle
   Application.ScreenUpdating = True
End Sub

Bis später,
Karin