Datum Format VBA "dd-mm-yy"

Forumthread: Datum Format VBA "dd-mm-yy"

Florian

Hallo liebes Forum,
habe eine Frage, bei der Ihr mir hoffentlich weiterhelfen könnt: erstelle ein xls-file, das wiederum als Input für einen automatischen Upload dient. Problem ist nun das Datumsformat: das Datum liegt als normales Datum (Zahl) in "dd/mm/yy" vor. Nun muss das Datum aber das Datum "dd-mm-yy"(Text) haben.
Weiss zufällig jemand von Euch Rat?
Dank schon vorab!
Florian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Datum Format VBA "dd-mm-yy"

Josef
AW: Datum Format VBA "dd-mm-yy"

Daniel

AW: Datum Format VBA "dd-mm-yy"

22.12.2009 12:50:07

Josef

Hallo Florian,
du meinst als Formel in der Tabelle?


= TEXT(A1; "TT-MM-JJ")

wenn das Datum in A1 steht.

Gruß Sepp

AW: Datum Format VBA "dd-mm-yy"

22.12.2009 12:50:38

Daniel

Hi
das kannst du umwandeln mit
FORMAT(Datumswert, "DD-MM-YY")
Gruß, Daniel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um das Datumsformat in Excel VBA von "dd/mm/yyyy" auf "dd-mm-yy" zu ändern, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke ALT + F11 in Excel, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

Gib den folgenden Code ein:

Sub FormatDatum()
   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets("DeinTabellenblatt") ' Ersetze "DeinTabellenblatt" mit dem Namen deines Tabellenblatts

   Dim lastRow As Long
   lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Hier wird die letzte Zeile in Spalte A ermittelt

   Dim i As Long
   For i = 1 To lastRow
       ws.Cells(i, 1).Value = Format(ws.Cells(i, 1).Value, "dd-mm-yy") ' Datumsformat ändern
   Next i
End Sub

Starte das Makro:
- Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle FormatDatum und klicke auf Ausführen.

Häufige Fehler und Lösungen

Fehler: "Typen unverträglich"
- Lösung: Stelle sicher, dass die Zellen, die du formatieren möchtest, tatsächlich Datumswerte enthalten und nicht als Text formatiert sind.
Fehler: Datum wird nicht korrekt angezeigt
- Lösung: Überprüfe, ob das Datumsformat in den Regionseinstellungen deines Computers korrekt eingestellt ist.

Alternative Methoden

Wenn du das Datum nicht über VBA ändern möchtest, kannst du auch folgende Methoden nutzen:

Excel-Formel:
- Verwende die Formel:
```
=TEXT(A1; "TT-MM-JJ")
```
  Diese wandelt das Datum in Zelle A1 in das gewünschte Format um.
Zellenformat ändern:
- Markiere die Zellen, klicke mit der rechten Maustaste und wähle Zellen formatieren. Wähle dann unter Zahlen die Kategorie Datum und wähle ein geeignetes Format aus.

Praktische Beispiele

Beispiel 1: Umwandlung eines Datums von "01/12/2023" nach "01-12-23":

Dim myDate As Date
myDate = CDate("01/12/2023")
MsgBox Format(myDate, "dd-mm-yy") ' Ergebnis: 01-12-23

Beispiel 2: Umwandlung eines Datums, das in einer Zelle steht:

Dim cellDate As Date
cellDate = ws.Cells(2, 1).Value
MsgBox Format(cellDate, "dd-mm-yy") ' Zeigt das formatierte Datum an

Tipps für Profis

Verwendung von CDate: Wenn du mit Textdaten arbeitest, die Datumsangaben enthalten, verwende CDate, um sie sicher in ein Datumsformat umzuwandeln.
Automatisierung: Du kannst das obige Makro in eine Schaltfläche auf deinem Excel-Blatt einfügen, um die Formatierung mit einem Klick auszuführen.
Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem VBA-Code, um sicherzustellen, dass alle möglichen Fehler beim Formatieren von Daten abgefangen werden.

FAQ: Häufige Fragen

1. Wie kann ich das Datumsformat dauerhaft ändern?
Um das Datumsformat dauerhaft zu ändern, kannst du die Zellen formatieren, bevor du die Daten eingibst, oder ein VBA-Makro verwenden, das bei jedem Öffnen der Datei ausgeführt wird.

2. Welche Excel-Version benötige ich?
Die beschriebenen Methoden funktionieren in Excel 2010 und späteren Versionen. Achte darauf, dass dein VBA-Editor aktiviert ist.

Beliebteste Forumthreads (12 Monate)