Gefilterte Daten in einer Kombobox darstellen
06.07.2016 00:13:48
Rafa
Ich brauche mal wieder eure Hilfe :P
Ich möchte eine Combobox mit Daten füllen, die in einer gefilterten Tabelle stehen. Dabei sollen nur nie eingeblendeten Felder in der Combobox angezeigt werden. Folgenden Code habe ich mir dafür überlegt:
Sub UserForm_Initialize()
'Auslesen der Bereiche aus "Hilfstabelle"
Dim objDic As Object
Dim lngZ As Long
Dim i As Integer
Set objDic = CreateObject("Scripting.Dictionary")
With Sheets("Hilfstabelle")
For i = 12 To .Cells(.Rows.Count, 3).End(xlUp).Row
If Rows(i).Hidden = False Then
ComboBox2.AddItem Cells(i, 3)
End If
Next i
End With
Me.ComboBox2.List = objDic.keys
With Me.ComboBox2
.AddItem "Alle Bereiche"
End With
End Sub
Es wird leider nur das Feld "Alle Bereiche" angezeigt. Die zuvor hinzugefügten Felder leider nicht... Kann mir da jemand helfen?
Vielen dank und beste Grüße
Rafa