Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle per VBA als "Datum" formatieren

Forumthread: Zelle per VBA als "Datum" formatieren

Zelle per VBA als "Datum" formatieren
29.08.2002 12:01:29
Simon
Wie kann ich in VBA erreichen, dass eine Zelle in Excel als "Datum" formatiert wird? Bestimmt mit "NumberFormat" irgendwie, oder?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zelle per VBA als "Datum" formatieren
29.08.2002 12:08:15
Martin Beck
Hallo Simon,

es gibt natürlich unterschiedliche Datumsformate. Beispiel:

Sub Datumformat()
Range("A1").NumberFormat = "dd.mm.yyyy"
End Sub

Am einfachsten ist es , den Forntierungsvorgang einmal mit dem Makrorekorder aufzuzeichnen, dann hast Du schonmal die richtige Syntax. Beispiel:

Sub Makro2()
Selection.NumberFormat = "d/ mmmm yyyy"
End Sub

Selection ersetzt Du dann noch am besten durch die gewünschte Zelle, also z.B. durch Range("A1")

Gruß
Martin Beck

Anzeige
Re: Zelle per VBA als "Datum" formatieren
29.08.2002 12:08:53
Udo RiHü
.Numberformat="DD.MM.YYYY"
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zelle per VBA als Datum formatieren


Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel per VBA als Datum zu formatieren, kannst Du die NumberFormat-Eigenschaft verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (DeinWorkbook)" klickst und "Einfügen" > "Modul" wählst.

  3. Kopiere den folgenden Code in das Modul:

    Sub Datumformat()
       Range("A1").NumberFormat = "dd.mm.yyyy"
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.

Du kannst das Datum auch in anderen Formaten wie "yyyy-mm-dd" oder "dd/mm/yyyy" formatieren, indem Du die Formatierung in der NumberFormat-Zeile änderst.


Häufige Fehler und Lösungen

  1. Fehler: "Typ nicht unterstützt"

    • Lösung: Stelle sicher, dass Du die richtige Zelle oder den richtigen Bereich angegeben hast. Zum Beispiel: Range("A1") sollte auf eine existierende Zelle zeigen.
  2. Fehler: Datum wird nicht korrekt angezeigt

    • Lösung: Überprüfe das eingegebene Datum. Excel kann Datumsangaben in unterschiedlichen Formaten interpretieren. Verwende die richtige Formatierung wie dd.mm.yyyy.

Alternative Methoden

Eine weitere Methode, um eine Zelle als Datum zu formatieren, ist die Verwendung des Makrorekorders. Dabei wird die Formatierung aufgezeichnet:

  1. Gehe zu "Entwicklertools" und klicke auf "Makro aufzeichnen".
  2. Formatiere eine Zelle manuell als Datum.
  3. Stoppe die Aufzeichnung und überprüfe den erzeugten VBA-Code.

Ein Beispiel könnte so aussehen:

Sub Makro2()
    Selection.NumberFormat = "d mmmm yyyy"
End Sub

Du kannst die Selection-Anweisung später durch die gewünschte Zelle ersetzen.


Praktische Beispiele

Hier sind einige Beispiele, wie Du verschiedene Datumsformate in Excel per VBA zuweisen kannst:

Sub BeispielDatumFormate()
    Range("A1").NumberFormat = "dd/mm/yyyy"        ' Format: Tag/Monat/Jahr
    Range("A2").NumberFormat = "yyyy-mm-dd"        ' Format: Jahr-Monat-Tag
    Range("A3").NumberFormat = "dd.mm.yyyy"        ' Format: Tag.Monat.Jahr
End Sub

Diese Makros helfen Dir, verschiedene Datumsformate in Deine Excel-Tabelle einzufügen.


Tipps für Profis

  • Nutze die Format-Funktion in VBA, um Daten dynamisch zu formatieren. Zum Beispiel:

    Dim aktuellesDatum As Date
    aktuellesDatum = Now
    MsgBox Format(aktuellesDatum, "dd.mm.yyyy")
  • Wenn Du häufig mit Datumsformaten arbeitest, erstelle eine Funktion, die die Formatierung für Dich übernimmt.


FAQ: Häufige Fragen

1. Wie kann ich das aktuelle Datum in eine Zelle einfügen? Du kannst das aktuelle Datum wie folgt einfügen:

Range("A1").Value = Date

2. Wie ändere ich das Datumsformat für mehrere Zellen gleichzeitig? Du kannst einen Bereich angeben:

Range("A1:A10").NumberFormat = "dd.mm.yyyy"

3. Was mache ich, wenn das Datum nicht als solches erkannt wird? Stelle sicher, dass das Datum korrekt eingegeben wurde und dass die Zelle richtig formatiert ist. Manchmal hilft es, die Zelle zu leeren und das Datum erneut einzugeben.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige