Private Sub CheckBox1_Click()
' ENDE Makro
' Makro am 02.06.2005 von Susi aufgezeichnet
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A4").Select
Range("A3").Select
Selection.ClearContents
Range("A4").Select
End Sub
Private Sub CheckBox1_Click()
' ENDE Makro
' Makro am 02.06.2005 von Susi aufgezeichnet
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A4").Select
Range("A3").Select
Selection.ClearContents
Range("A4").Select
End Sub
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value Then
[a3].Value = Date
Else
[a3] = ""
End If
End Sub