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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen