Abbruch vor Makroausführung
03.07.2008 17:36:54
chris58
Ich habe hier eine Userform die mir in zwei Spalten (einmal das Datum von Heute und dann einen Text) schreibt. Nun habe ich einen Abbuchbutton in dieses Userform hinzugefügt und hoffte, daß das Makro, wenn ich auf Abbruch gehe, nicht ausgeführt wird. Leider wird das Datum dennoch in eine Spalte eingefügt und muß dann händisch gelöscht werden. Wie kann, bzw. wo muß ich den code ändern, das das Datum nicht in die Spalte geschrieben wird, bzw. nach Betätigung des Abbruch-Buttons wieder gelöscht wird ? Danke für die Antwort.
chris58
Option Explicit
Private Sub CommandButton1_Click()
If Me.OptionButton1.Value = True Then ActiveCell.Offset(, 5) = Me.OptionButton1.Caption
If Me.OptionButton2.Value = True Then ActiveCell.Offset(, 5) = Me.OptionButton2.Caption
Unload UserForm1
End Sub
Private Sub UserForm_Click()
Private Sub CommandButton2_Click()
' Wenn nicht alles ok, dann makro nicht forsetzen.
MsgBox "Vorgang wurde abgebrochen"
'End
Unload Me
End Sub