VBA Tage trennen um Mitternacht
08.03.2022 08:48:30
MartyMcFly
ich bin auf der Suche nach einem VBA Code der es mir ermöglicht Zeitstempel, welche Tagesübergreifend sind, nach Tagen zu splitten.
Meine Aufgabe:
Ich soll Zeiten von Mitarbeitern nach Tagen auswerten. Das lässt sich natürlich leicht über eine Pivot Tabelle einrichten.
Mein Problem:
Die Zeiten die ich auswerten soll trennen die Tage nicht nach Mitternacht deutscher Zeit. Die Daten wurden nämlich ursprünglich in pazifischer Zeit erfasst und automatisch in die lokale Zeit umgerechnet. Daher erfolgt die Trennung um 09:00 Uhr unserer Zeit, womit ich natrülich nichts anfangen kann. Diese Zeitstempel Daten können mitunter sehr umfangrech sein und von 10000 bis 500000 Zeilen enthalten. Der generelle Aufbau ist allerdings immer derselbe.
Was ich benötige:
Ich bräuchte ein VBA script das durch alle vorhandenen Zeilen geht und bei jeder Zeile, die ein anderes Enddatum als das Startdatum hat, eine neue Zeile einfügt beginnend bei Enddatum 00:00 bis ursprüngliches Enddatum und in der Ursprungszeile das Enddatum auf das Startdatum 00:00 setzt und den Zeitunterschied in beiden Zeilen neuberechnet. Damit sollten die Tage korrekt getrennt sein und auch für mich korrekt auszuwerten sein.
Ich habe eine Beispieldatei hochgeladen, welche den Ist- und den Sollzustand abbildet.
https://www.herber.de/bbs/user/151620.xlsx
Ich hoffe es findet sich jemand der mir hier weiterhelfen kann.