gibt es in Excel eine "Refresh"-Funktion für ComboBoxen? Ich habe 2 voneinander abhängige Comboboxen, wenn beide (CB1 und CB2) mit Werte ausgefüllt sind, füllen sich 2 TextBoxen mit den dazugehörigen Werten. Wenn ich aber eine neue Auswahl treffe und nur die ComboBox1 ändere, ändern sich die anderen Werte (ComboBox2 und die beiden TextBoxen) zunächst nicht. Ich muss nochmal die ComboBox2 auswählen, um eine Änderung herbeizuführen.
Gibt es eine Funktion, die bei Änderung der ComboBox1, zunächst alle anderen Werte "verschwinden" lässt und erst durch Wahl von ComboBox2 füllt?
Mein Code (Quelle: j-hennekes.de)
Option Explicit
Const C_mstrDatenblatt As String = "Tabelle1"
Const C_mstrZielblatt As String = "Tabelle2"
Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long
Private Sub ComboBox1_Enter()
Set mobjDic = CreateObject("Scripting.Dictionary")
For mlngZ = 2 To mlngLast
mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ, 1).Value) = 0
Next
Me.ComboBox1.List = mobjDic.Keys
Set mobjDic = Nothing
End Sub
Private Sub ComboBox2_Enter()
Set mobjDic = CreateObject("Scripting.Dictionary")
With Worksheets(C_mstrDatenblatt)
For mlngZ = 2 To mlngLast
If .Cells(mlngZ, 1).Value = Me.ComboBox1.Value Then
mobjDic(.Cells(mlngZ, 2).Value) = 0
End If
Next
End With
Me.ComboBox2.List = mobjDic.Keys
Set mobjDic = Nothing
End Sub
...Vielen Dank euch!