Einträge in mehreren Dropdown-Menüs nach Übergabe löschen
10.11.2023 00:03:41
DiMein
Ich habe mir eine Userform mit TextBoxen und Dropdownlisten (ComboBoxen) gebaut, mittels derer ich eine Tabelle fülle. Nachdem ich die Daten über den "Einfügen"-Button an die Liste übergeben habe, sollen die Felder der Userform geleert werden, damit der nächste Datensatz eingegeben werden kann.
Für das Leeren der TextBoxen habe ich ein Script gefunden, dass mir diese leert. (Da ich diese Sequenz in ein bestehendes Sub eingefügt habe, fehlt hier die Sub / End Sub-Grenze).
' Leert die Text-Boxen in der Userform, nachdem der Datensatz hinzugefügt wurde
'
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next
Weil da auch etwas von ComboBox steht, dachte ich, dass ich damit ALLE Felder leeren kann. Habe wie ein Geisteskranker rumexperimentiert, aber leider ohne Erfolg. Außerdem haben sich die Einträge in der Dropdown-Liste von selber vervielfältigt, und das mit jedem Datensatz, den ich eingegeben habe.
Auf meiner Suche nach einem analogen Script für Dropdown-Listen bin ich leider gescheiter. Ich habe zwar eines gefunden, mit dem man EINE Listen leeren kann (hat bei mir leider auch nicht geklappt), aber keines, mit dem ich beide leeren kann, vor allem eines, dass die Selbständige Vervielfältigung der Listeneinträge verhindert.
Hat jemand von euch da eine Lösung für mich?
Besten Dank schon Mal vorab.