ich habe ein Formular das ich hintereinander x-mal aufrufe, jetzt will ich aber bei click auf Button "Abbrechen" den Ablauf komplett abbrechen und den Wert aus Variable nicht in Zelle weiterschreiben.
In meinem Code wird nur das ausgeführte Formular beendet.
Wie schaut die Lösung aus?
Danke im voraus Gruss Andreas
Option Explicit
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").Value = Range("d7").Value + a
Unload Me
End Sub
Private Sub Abbrechen_Click()
Unload Me
End Sub