Hallo ihr Excelspezialisten,
ich lade eine UF in Userform_Initialize für die Combobox1 mit folgendem Code:
Application.ScreenUpdating = True
Me.ComboBox1.Clear
Set objDic = CreateObject("Scripting.Dictionary")
With Sheets("Hilfstabelle")
Set Bereich = .Range(.Range("T2"), .Range("T2").End(xlDown)) 'relevanten Bereich ermitteln
' MsgBox Bereich.Address
End With
For Each Zelle In Bereich
objDic(Zelle.Value) = 0 'Nur Unikate sammeln
Next
ComboBox1.List = objDic.Keys 'Unikate der ComboBox zuweisen
Application.ScreenUpdating = False
Wenn ich nun innerhalb des Programms die gesamten Daten lösche und dann neue Daten einstelle, werden die Daten für Combobox nicht geleert. Es bleiben die Werte von den Eingaben zuvor vorhanden. Erst beim nächsten Start der UF ist die Combobox mit den neuen Daten gefüllt.
Was mache ich hier falsch?
Was muss geändert werden?
Besten Dank für eure Hilfe.
Gruss
Peter