Datum ein und ausblenden
02.06.2005 19:47:19
Susi
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
Anzeige