Enable von Textbox
18.01.2006 10:30:47
Textbox
in einer Userform sollen gewisse Textboxen nur ausgefüllt werden dürfen, falls bestimmte andere Comboboxen einen gewissen Wert einnehmen, ansonsten sollen sie auf enable = false gesetzt sein:
Private Sub UserForm_Initialize()
If ComboBox9.Value = ja Then TextBox24.Enabled = True
If ComboBox9.Value = ja Then TextBox25.Enabled = True
If ComboBox9.Value = ja Then TextBox26.Enabled = True
If ComboBox9.Value = nein Then TextBox24.Enabled = False
If ComboBox9.Value = nein Then TextBox25.Enabled = False
If ComboBox9.Value = nein Then TextBox26.Enabled = False
End Sub
Das Problem ist jetzt, dass mit dem Aufrufen der Userform bereits festgelegt ist, ob die TextBoxes ausgefüllt werden können oder nicht. D.h. ist beispielsweise nach dem Aufrufen der UserForm der Value der ComboBox auf ja und man ändert ihn auf nein, kann trotzdem kein Wert in die TextBoxes eingegeben werden.
Wer weiß Abhilfe? (Vielleicht auch wie das ganze kürzer gehalten werden kann...)
Viele Grüße und vielen Dank im Voraus,
Bulli
Anzeige