Hallo liebe Excel Freunde,
ich versuche über die Function Application.Round einen Zeitstempel so zu runden, dass nur das Datum ausgewiesen wird aber nicht die Uhrzeit:
Beispiel:
Orginal Zelle beinhaltet: 05.07.2015 16:55:48
Dim DatwertA_round As Date
~f~ DatwertA_round = ActiveCell.Offset(0, -12)
~f~ DatwertA_round = Application.Round(DatwertA_round, -1)
rundet ganzahlig ab auf 42190 -> als Datum formatiert ergibt den 05.07.2015 - korrekt!
Jedoch bei folgendem Wert funktioniert das nicht:
Orginal Zelle beinhaltet: 13.07.2015 13:00:59
Ergebnis: 15.07.2015 (nicht korrekt!!!)
Sicher kann man innerhalb der Definition von -1 auf 0 ändern,
Wenn ich DatwertA_round = Application.Round(DatwertA_round, 0) verwende, wird aber jetzt aufgerundet! Sicher kann man dann einfach -1 im Marco subtrahieren subtrahieren um auf den korrekten Wert zu kommen, aber gibt es keine einfachere Lösung um korrekt abzurunden?
Danke Karsten