autom. Aktualisierung der Eingaben
26.03.2008 10:22:49
Hüseyin
ich habe folgendes Problem:
ich habe in meiner UserForm eine ComboBox und zwei Checkboxes auf einem Register mit zwei Optionbuttons und mehreren Textfeldern auf dem anderen Register verknüpft. D.h. wenn im Register 1 eine Auswahl in der ComboBox getroffen oder eine Checkbox angeklickt wurde, werden auf dem anderen Register automatisch die entsprechende Optionbutton und Textfelder aktiviert. Bis hierher funktioniert es auch problemlos.
Allerdings wenn die einmal getroffene Auswahl im ersten Register geändert wird, werden die Eigenschaften des zweiten Registers nicht automatisch aktualisiert. Dann muss man einmal zwischen den beiden Optionbuttons wechseln, damit das erfolgt. Und genau das möchte ich vermeiden und will, dass es ohne weitere manuelle Aktionen aktualisiert wird, sobald eine Änderung der Eingaben im ersten Register erfolgt. Mein Code für die Optionbuttons sieht so aus:
Private Sub OptionButton1_Click()
Select Case ComboBox1.Value
Case "Vorfilter"
TextBox7.Enabled = True
Label8.Enabled = True
TextBox8.Enabled = False
Label9.Enabled = False
Case "Hauptfilter"
TextBox149.Enabled = True
Label160.Enabled = True
TextBox150.Enabled = False
Label159.Enabled = False
End Select
If CheckBox7.Value = True Then
Select Case ComboBox1.Value
Case "Vorfilter"
TextBox149.Enabled = True
Label160.Enabled = True
TextBox150.Enabled = False
Label159.Enabled = False
Case "Hauptfilter"
TextBox151.Enabled = True
Label162.Enabled = True
TextBox152.Enabled = False
Label161.Enabled = False
End Select
End If
If CheckBox8.Value = True Then
TextBox151.Enabled = True
Label162.Enabled = True
TextBox152.Enabled = False
Label161.Enabled = False
End If
End Sub
------------------------------------------
Private Sub OptionButton2_Click()
Select Case ComboBox1.Value
Case "Vorfilter"
TextBox7.Enabled = False
Label8.Enabled = False
TextBox8.Enabled = True
Label9.Enabled = True
Case "Hauptfilter"
TextBox149.Enabled = False
Label160.Enabled = False
TextBox150.Enabled = True
Label159.Enabled = True
End Select
If CheckBox7.Value = True Then
Select Case ComboBox1.Value
Case "Vorfilter"
TextBox149.Enabled = False
Label160.Enabled = False
TextBox150.Enabled = True
Label159.Enabled = True
Case "Hauptfilter"
TextBox151.Enabled = False
Label162.Enabled = False
TextBox152.Enabled = True
Label161.Enabled = True
End Select
End If
If CheckBox8.Value = True Then
TextBox151.Enabled = False
Label162.Enabled = False
TextBox152.Enabled = True
Label161.Enabled = True
End If
End Sub
------------------------------------------
vielen Dank
Hüseyin