ich rufe ein Formular mit 4 OptionButtons auf, jeder hat einen anderen Wert der in Variable a kommt und in eine Zelle gelesen werden kann. Das funktioniert. Jetzt will ich aber das Formular x-mal aufrufen bekomme natürlich jedesmal eine anderen Wert und diese x-Werte will ich summieren und diese Summe dann in eine Zelle schreiben.
Das will ich, weiss aber nicht wie.
Danke für jeden Tip Gruss Andreas
Sub OK_Click()
Dim meldung As String
Dim a As Integer
a = 0
If OptionButton1 = True Then
a = 10
ElseIf OptionButton2 = True Then
a = 20
ElseIf OptionButton3 = True Then
a = 30
ElseIf OptionButton4 = True Then
a = 40
End If
If a = 0 Then
meldung = "Sie müssen eine Auswahl treffen"
MsgBox meldung
Exit Sub
End If
Range("d7") = a
Unload Me
End Sub