Dropliste der Userform aktualisiert nicht richtig
10.07.2019 08:25:27
Leon.DerProf
ich habe eine Userform gebaut.
Sie funktioniert super. In dieser sollen in der Dropliste eine Reihe an Optionen vorgestellt warden.
Die Optionen werden in einer Spalte eingetragen.
Das Problem ist, dass die Dropliste Zeit braucht, um sich zu aktualisieren. Manchmal muss ich die Userform schließen und wieder neu öffnen, damit ich einen neuen Eintrag in der Dropliste auswählen kann.
Ich verstehe, dass man einen tieferen Einblick in die Datei brauchen könnte, um das Problem richtig zu erkennen. Daher meine Frage nur. Liegt das Problem womöglich innerhalb dieses Codes?
Public Sub UserForm_Initialize()
'Maßnahmen in ComboBox anzeigen, ist das Ziel.
'Zunächst Variablen festlegen.
Dim MaßLog As Range
'Jetzt wird eine Loop eingefügt, sie endet mit Next MaßLog.
'Es wird ein Zeilenbereich angesteuert.
For Each MaßLog In Worksheets(1).Range("Tabelle2[Maßnahme]")
'Innerhalb des Loops wird in der UserForm die ComboBox anvisiert und in diese sollen die Items _
aus Range("Tabelle2[Maßnahme]") angezeigt werden.
With UserFormDrucken.ComboBox_Aufgabe
.AddItem MaßLog.Value
End With
Next MaßLog
End Sub
Leon