Sub Makro1()
'''Datum als Date einfügen, einsetzen MIT ToDay
        Range("B3").Select
        ActiveCell.FormulaR1C1 = "=TODAY()"
'''Eine Zeile tiefer
        ActiveCell.Offset(1, 0).Range("A1").Select
'''Datum als String einfügen
        ActiveCell.Value = CStr(Date)
'''Eine Zeile tiefer
        ActiveCell.Offset(1, 0).Range("A1").Select
'''Datum als Date, einfügen MIT Date
        ActiveCell.Value = (Date)
End Sub