Excel 2010: Datum in VBA immer ein Tag daneben (bei Datum im jahr 1900)...

Hallo Jochen,

da das Excel-Datum fälschlicherweise annimmt, dass 1900 ein Schaltjahr gewesen ist, stimmen die Werte bis 01.03.1900 nicht bei allen Berechnungen.

Probiere:

Sub Test()

Dim Datum As Date

With Sheets(1).Range("A1")

    Datum = IIf(.Value < 61, .Value + 1, .Value)

End With

MsgBox Datum

End Sub

Claus

Deine Spalte D enthält anscheinend die Datumswerte nach dem islamischen Kalender. Damit hat Excel Probleme, da es nur mit Datumswerten nach dem 01.01.1900 umgehen kann. Das Datum wird programmintern in eine fortlaufende Zahl umgewandelt, dabei ist der 01.01.1900
(nach dem julianischen Kalender) der Tag 1, heute (17.09.2019) ist der Tag 43725. Datumswerte mit Jahreszahlen kleiner als 1900 können in Excel nur mit Tricks (Jahre dazuzählen - rechnen - Jahre wieder abziehen) verarbeitet werden.

Viele Grüße

Ute

Die Formel funktioniert soweit. Wenn ich jedoch im Februar 31 Tage eingebe, gibt er mir ebenfalls brav einen Wochentag aus, obwohl es diesen ja gar nicht gibt.

Das ist den Datumsfunktionen egal, die rechnen einfach das nächste logische Datum aus.

Man kann auch in die Vergangenheit schauen, =DATUM(2012;3;0) gibt den letzten Tag im Februar zurück. Oder beliebige Anzahl Monate weiter =DATUM(2012;20;1)

Möchtest Du also prüfen ob sich aus den 3 Zellen ein "wirkliches" Datum ergibt, dann muss Du prüfen ob

a.) das Jahr von 1900 bis 9999 geht

b.) der Monat von 1 bis 12 geht

c.) der Tag von 1 bis =DATUM(A1;A2+1;0) geht

Andreas.

Hallo R

Hier findest du die gewünschte Formel:

http://ms-excel.eu/excel-formel-beispiele/beisp...

Bitte markiere meine Antwort als Hilfreich, wenn sie dir geholfen hat.

LG

Dimi

Ich bin durch Zufall auf einen Darstellungsfehler in PowerPivot gestoßen, der offensichtlich bei Datums-Werten um den 1.1.1900 auftritt. Die Dezimal-Werte werden korrekt ins PowerPivot- Datenmodell importiert, aber die Darstellung bei Datums- und
Uhrzeitangaben ist zwischen normalem Excel und PowerPivot unterschiedlich.

Das ist fast richtig. ;-)

Um genau zu sein passiert das bei jedem Datum vor dem 1.3.1900, denn der Tag davor ist der 28.2.1900 und nicht wie in einem Excel Tabellenblatt dargestellt der 29.2.1900, der Fehler ist also auf der anderen Seite der Medaille.

Dieser Fehler wurde absichtlich 1985 in Excel eingebaut, die Details können Sie hier nachlesen:

https://docs.microsoft.com/de-de/office/troubleshoot/excel/wrongly-assumes-1900-is-leap-year

Alle anderen Tools in Excel die nicht direkt in einem Tabellenblatt arbeiten wie z.B. Power Query / Power Pivot / VBA haben diesen Fehler nicht.

BTW, in einem Tabellenblatt können Sie kein Datum vor dem 1.1.1900 darstellen, was einer negativen Zahl entspricht. In Power Pivot etc. geht das, dort können Sie vom 1. Januar 100 bis 31. Dezember 9999 rechnen (falls ich mich nicht irre).

In Excel selber ist der Aufwand vermutlich extrem hoch diesen alten Fehler zu entfernen, denn es gibt ja auch noch das 1904-Datumsystem in Excel. Und andere Kulturen haben andere Kalender, Excel gibt es weltweit, denken Sie mal an Arabisch, Chinesisch, ...

Weil die Wahrscheinlichkeit das jemand über 100 Jahre später darüber stolpert sehr gering ist, belässt man es einfach dabei.

Ich freue mich das ich helfen konnte und wenn Sie keine weiteren Fragen zu dem Thema haben wäre es nett wenn Sie den Thread als beantwortet markieren und damit schließen. Vielen Dank.

Andreas.