Formular/Makro abbrechen
06.07.2007 20:30:37
Matthias
Wie und/oder wo muss ich welchen Code einfügen, damit wenn der User auf den "Abbrechen" Button klickt, nicht nur das Formular geschlossen wird, sondern auch die Befehle ab **** nicht mehr ausführt? Ich schaffe das leider nicht :-(
Merci viemal für eure Hilfe!
Sub NeueChrono()
Dim intLast As Integer
Dim dblBetrag As Double
Dim dEingang As Date
Application.ScreenUpdating = False
Sheets("Chronologie").Select
Rows("21:21").Select
ActiveSheet.Unprotect
Selection.Insert Shift:=xlDown
Range("A21").Select
Load formNeueChrono
formNeueChrono.Show
If IsDate(formNeueChrono.Eingang.Value) Then
dEingang = formNeueChrono.Eingang.Value
End If
Unload formNeueChrono
intLast = Selection.Row
****Cells(intLast, 1).Value = dEingang
****Cells(intLast, 8).Value = Application.UserName & Chr(10) & Date
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub