' Datum eingeben
If Target.Row = 3 Or Target.Row = 7 Or Target.Row = 11 Or Target.Row = 15 Or Target.Row = 19 Or Target.Row = 23 Or Target.Row = 27 Or Target.Row = 31 Or Target.Row = 35 Or Target.Row = 39 Then
If MsgBox("Wollen Sie wirklich hier das Datum eingeben!", vbYesNo + 16 + vbDefaultButton2, "Datum?") = vbYes Then
ActiveCell.FormulaR1C1 = "=TODAY()"
End If
End If
jetzt ist das Problem wenn ich nächsten Tag diese Mappe öffne steht in der Spalte das Datum von heute und nicht von gestern.
In der Zelle steht ja =Heute(), wie kann man das noch machen?
schon mal Danke Heiko