Datum als serielle Zahl ausgeben
Schritt-für-Schritt-Anleitung
Um ein Datum in Excel VBA in eine serielle Zahl umzuwandeln, kannst Du die folgende Prozedur verwenden. Diese Technik eignet sich hervorragend, um mit Datumsangaben effizient zu arbeiten:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub Datum()
Dim Datum As Date
Datum = "01.01.2009"
MsgBox CLng(Datum)
End Sub
- Führe das Makro aus, indem Du
F5 drückst oder auf Run klickst.
- Du solltest eine Nachricht mit der seriellen Zahl des Datums erhalten.
Falls Du die Jahreszahl variabel gestalten möchtest, kannst Du den Code wie folgt anpassen:
Sub Datum()
Dim intJahreszahl As Integer
Dim datDatum As Date
intJahreszahl = 2009
datDatum = DateSerial(intJahreszahl, 1, 1)
MsgBox CLng(datDatum)
End Sub
Häufige Fehler und Lösungen
Alternative Methoden
Es gibt verschiedene Methoden, um ein Datum in eine Zahl umzuwandeln:
-
Direkte Umwandlung mithilfe von CLng:
- Diese Methode wandelt das Datum direkt in eine Zahl um, wie im obigen Beispiel gezeigt.
-
Verwendung von DateValue:
- Du kannst auch die Funktion
DateValue verwenden, um ein Datum in seine serielle Zahl umzuwandeln:
Sub DatumUmwandeln()
Dim datDatum As Date
datDatum = DateValue("01.01.2009")
MsgBox CLng(datDatum)
End Sub
Praktische Beispiele
Hier sind einige praktische Beispiele, wie Du das Datum in eine Zahl umwandeln kannst:
-
Um ein Datum mit variabler Jahreszahl zu erzeugen:
Sub DatumMitVariable()
Dim Jahr As Integer
Jahr = 2023
MsgBox CLng(DateSerial(Jahr, 5, 15)) ' Gibt die serielle Zahl für den 15.05.2023 zurück
End Sub
-
Um ein Datum in ein Excel-Zellenformat zu bringen:
Sub DatumInZelle()
Dim datDatum As Date
datDatum = "01.01.2009"
Cells(1, 1).Value = CLng(datDatum) ' Schreibt die serielle Zahl in die Zelle A1
End Sub
Tipps für Profis
-
Verwende benannte Bereiche für häufig verwendete Datumswerte, um den Code übersichtlicher zu gestalten.
-
Nutze Fehlerbehandlung in VBA, um unerwartete Eingaben besser zu verwalten. Beispiel:
On Error GoTo Fehlerbehandlung
' Dein Code hier
Exit Sub
Fehlerbehandlung:
MsgBox "Ein Fehler ist aufgetreten"
-
Experimentiere mit Pivot-Tabellen und Diagrammen, um die serielle Zahl weiter zu analysieren.
FAQ: Häufige Fragen
1. Wie kann ich ein Datum in eine Zahl umwandeln, ohne VBA zu verwenden?
Du kannst die Funktion =DATUM() in Excel verwenden, um ein Datum zu erstellen und dann die Formatierung auf "Zahl" zu ändern.
2. Was ist der Unterschied zwischen CLng und CDate?
CLng wandelt einen Wert in eine lange Ganzzahl um, während CDate einen Wert in ein Datumsformat umwandelt. Um ein Datum als Zahl auszugeben, solltest Du CLng verwenden.