leeren ComboBox und Textfeld
15.04.2025 15:35:32
Eumel1965
ich habe eine ComboBox in der ich aus Tabelle 1 die Spalte A auslese über die Eigenschaften und RowSource. Im Textfeld1 lasse ich mir aus Spalte B die dazugehörige Zelle mit folgendem Code einblenden.
Private Sub ComboBox1_Change()
TextBox1Text = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
leeren möchte ich die ComboBox und das Textfeld über den Code:
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 = Falsenun bekomme ich "Laufzeitfehler 381. Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftenfeldes ungültig"
Hat jemand einen Plan?
Anzeige