Überwachen mehrerer Boxes
Wolfgang
ein Makro soll z.B nur dann laufen, wenn die Checkbox2 ein Häkchen bekommt und auf dem gleichen UF OptionButton8 markiert ist sowie die Textbox27 Zahlen enthält. Enthält Textbox27 keine Zahlen bzw. keinen Inhalt, dann MsgBox und Abbruch Sub; Wenn OptionButton8 betätigt und Textbox27 enhält Inhalt, dann soll der Code folgen. Gibt es da eine elegantere Lösung als die meine? - Weiter möchte ich erreichen, dass wenn OptionButton9 markiert wird, eine Inputbox geöffnet wird und nach Eingabe der Gesamtsumme gefragt wird. Die Gesamtsumme soll dann bei OK in Textbox34 eingefügt werden -Hierzu hätte ich noch gar keine Idee und wäre auch hierzu über Hilfestellung dankbar-; Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub CheckBox2_Click()
If OptionButton8 = True Then
If CheckBox2.Value = True Then
If TextBox27.Value = "" Then
MsgBox "Bitte zunächst die erforderlichen Angaben machen", vbInformation
CheckBox2.Value = False
Exit Sub
Else
TextBox34.Value = Application.Min(476, TextBox27.Value * TextBox28.Value * 20 / 100)
TextBox29.Value = TextBox34.Value * TextBox7.Value
End If
End If
End If
If CheckBox2.Value = False Then
TextBox27.Value = ""
TextBox28.Value = ""
TextBox29.Value = ""
TextBox34.Value = ""
End If
End Sub