UserForm dynamische ComboBox
22.10.2019 09:18:12
Janson
nun ist es passiert. Ich komme mit meinem Latein nicht weiter.
Zu meinem Problem: ich habe eine UserForm erstellt bei der unterschiedliche Auswahlkriterien getroffen werden und abhängig von diesen soll eine ComboBox gefüllt werden. Leider bleibt die Box leer.
Im Hintergrund liegt ein Entscheidungsbaum auf dem Registerblatt Entscheidungsbaum: in etwa so:
Kriterium_1 Kriterium_2 Kriterium_3
A 1 R
A 1 S
A 2 T
A 2 U
A 3 V
B 1 W
B 2 X
B 2 Y
B 3 Z
Kriterium 1 wird anhand von OptionButtons (OptinButton1, 2, 3) festgelegt, Kriterium 2 anhand von CheckBoxen (Checkbox1, Checkbox2). Kriterium 3 soll nun in einer ComboBox (ComboBox5) dargestellt werden.
Im Modul 1 habe ich globale Variablen definiert
Option Explicit
'Modulweite Variablen deklarieren
Global Const C_mstrDatenblatt As String = "Entscheidungsbaum"
Global mobjDic As Object
Global mlngLast As Long
Global mlngZ As Long
Global Kriterium_1 As String
Global Kriterium_2 As String
Kriterium 1 und Kriterium zwei werden auf unterschiedlichen Pages der UserForm festgelegt und im Registerblatt DataEntry in den Zellen B7 (Kriterium 2) und B8 (Kriterium 1) abgelegt.
Nun soll meine ComboBox5 dynamisch anhand der Vorauswahl gefüllt werden. Anbei mein Code:
Private Sub ComboBox5_Enter()
'Combobox in Abhängigkeit von Kategorie und Empfänger
Set mobjDic = CreateObject("Scripting.Dictionary")
mlngLast = 50
Me.ComboBox5.Clear
With Worksheets(C_mstrDatenblatt)
For mlngZ = 2 To mlngLast
If .Cells(mlngZ, 2).Value = Kriterium_1 And .Cells(mlngZ, 3).Value = Kriterium_2 Then
mobjDic(.Cells(mlngZ, 4).Value) = 0
End If
Next
End With
Me.ComboBox5.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Warum bleibt die ComboBox leer? Kurioserweise hat es schon einmal funktioniert und dann plötzlich nicht mehr. Über Hilfe würde ich mich freuen.
VG
Janson