VBA und Datum vor 1900

Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread

Forumbeitrag

Excel-Version des Fragestellers:

365 Business

Erfahrungslevel des Fragestellers:

Excel gut - VBA gut

Sigi.21

16.06.2026 21:30:42

AW: Das muss es schon...

Hallo,

ja VBA kennt ein Datum vom 01.01.0100 bis 31.12.9999.

ABER:
Das ist alles in gregorianischem Stil. Der gregorianische Kalender ist erst am 15.10.1582 eingeführt worden. Zuerst von katholischen Ländern (Kirchenstaat, Großherzogtum Toskana, Republik Venedig); erst viel später von protestantischen Ländern (Herzogtum Preußen 1612, Grafschaft Lippe und protestantische Reichsstädte 1700, Kaiserreich Frankreich 1806, Sowjetrussland 1918 und Königreich Griechenland 1923).

Falls du historische Daten verarbeiten willst, solltest du dich erst erkundigen, ab wann der gregor. Kalender in deiner Region gültig ist.

Gruß Sigi

Beim Antworter bedanken Als gefällt mir markieren Als hervorragend auszeichnen

Als Antwort auf diesen Beitrag

Case

16.06.2026 21:08:32

Das muss es schon...

Moin Daniel, :-)

... sehr lange geben, denn es kommt von VB aus dem "VB-/OLE-Automation-Datumsmodell": ;-)
https://dtformat.com/de/format/ole-date

Hab das eben im Direktfenster probiert: ;-)

Userbild

So wie ich das sehe sind -26860 dann 26860 Tage vor dem 30.12.1899. ;-)

Also: ;-)
Ganzzahlteil = Anzahl Tage seit 30.12.1899
Nachkommateil = Uhrzeit

Ich glaube VBA kann vom 01.01.0100 bis zum 31.12.9999. ;-)

Servus
Case

Folgenachrichten

AW: Das muss es schon... - von Sigi.21 am 16.06.2026 21:43:15
Sehen wir uns mal... - von Case am 16.06.2026 22:02:05
- AW: Sehen wir uns mal... - von Marc am 17.06.2026 10:30:21

Zum Forumthread

Antwort auf Beitrag erstellen

Name

Bitte einen Anwendernamen ohne @ eingeben.

Passwort

Bitte das Passwort eingeben.

Email-Adresse

Bitte eine gültige E-Mail-Adresse eingeben.

Betreff

Bitte einen Betreff eingeben.

Weitere Optionen

Als noch offen markieren.

Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.

Beispieldatei hochladen

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus


   Option Explicit
   Sub NaEndlich()
      MsgBox "Hallo Welt"
   End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile
Zweite Zeile
Dritte Zeile

Erklärung

Bitte einen Nachrichtentext eingeben.