|
Hallo zusammen,
ich brauche dringend Hilfe. Ich habe mir ein UserForm erstellt, welches 6 OptionButtons und 11 Textboxen enthält. Das Formular dient dem Anwender zur Simulation von Kalkulationen. Die OptionButtons sind mit verschiedenen Standorten hinterlegt, in die Textfelder sollen verschiedenste Zahlenwerte eingegeben werden.
Z.B. Eingabe des Anschaffungswertes in TextBox1:
Private Sub TextBox1_Change()
If TextBox1.Text = " " Then Exit Sub
anschaffungswert = TextBox1.Value
Range("E6").Value = anschaffungswert
End Sub
Der Benutzer gibt den entsprechenden Wert ein und sieht die Veränderungen sofort auf seinem Formular.
Der Anschaffungswert ist an allen Standorten gleich!
Mein Problem: Es gibt Werte, die je nach Standort mit einem anderen Faktor multipliziert werden, z.B. Berechnung der Raumkosten:
Private Sub TextBox5_Change()
If TextBox5.Text = " " Then Exit Sub
raumkosten = TextBox5.Value
Range("E13").Value = raumkosten * 20
End Sub
Der Anwender gibt hier die Quadratmeter ein und der Code multipliziert das automatisch mit 20€/m². Dies soll der Satz sein, wenn ich OptionButton1 gewählt habe. Wähle ich OptionButton2 soll das Ganze mit 30 multipliziert werden, da anderer Standort, usw.
Wie muss ich diese Kombination in VBA ausdrücken? Außerdem soll immer ein OptionButton aktiviert sein, d.h. es muss immer ein Standort ausgewählt sein, sonst soll die Berechnung nicht funktionieren.
Vielen Dank im Voraus!
|