Datumsformel
22.01.2015 22:17:39
toteitote
=NOW() - 1 + 0,0833333333333333
ist die korrekte Datumsformel und soll so beibehalten werden.Kann sich das bitte jmd. anschauen, wie der Sub Kopieen so definiert werden kann, dass ApplicationName(_Today[siehe Oben - NOW]) bei betätigung des Macros auf ApplicationName(_DayString) übertragen wird.
Sub ActivateCellToday()
Selection.Sheets("Sheet1").Range("B3").Value = Now() - 1 + 8.33333333333333E-02
Sheets("Sheet1").Range("B3").Activate
End Sub
https://www.herber.de/bbs/user/95188.xlsm