Office: Datum als Text mit VBA in richtiges Datum konvertieren

Hi,

habe folgendes Problem :

Ich bekomme aus Access eine Tabelle nach Excel verschoben, leider sind die Zellen, die eigentlich im Datumsformat sein sollten (z.B Gewährleistungsdatum) nun Text. Wie kann ich nun mittels VBA dieses Textdatum in ein "echtes" Datum ändern.

Das übergebene Datum ist übrigens in der unschönen Form yyyymmdd z.B : 20000901.

Danke

Florian

:)

 

Hallo Florian

Markiere den Bereich und lasse folgendes Makro laufen.
Code:

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

 

Das Probelm ist aber dass das Datum im Textformat ist und nicht numerisch, oder sehe ich das an deinem Code falsch?

 

Hallo Florian

ich hatte es eigentlich getestet als ich den Code vor Monaten erstellt habe. Aber eben für ein numerisches Feld.
Jetzt habe ich nochmal getestet und noch ein wenig geändert.
Code:

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

 

Danke dir werde es gleich mal testen

 

Hallo,

super danke dir hat geklappt musste bloß eine Kleinigkeit ändern. (statt z, nun z.value)

Code:

Vielen Vielen Dank

 

Hallo Florian

Danke für die Rückmeldung. Unter XP lief es ohne Value, aber ich habe es in meinem Beispiel ergänzt.



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

 

Hallo Zusammen, habe ein ähnliches Problem. Meine Text als Ausgang hat aber schon die Form mit den Punkten, also z.B. 16.01.2021. Kann mir da bitte jemand helfen, wie dann die VBA aussehen muss VG Kai

 

Hallo,

muss das unbedingt mit VBA konvertiert werden?
Eine simple Arbeitsblattfunktion genügt ja doch auch:
=DATWERT("16.01.2021") (was im Standardformat 44212 ergibt - oder wiederum als Datum formatiert: 16.01.2021)
oder falls "16.01.2021" in Zelle A1 als Text gespeichert ist:
=DATWERT(A1)

 

Hallo, Danke für die schnelle Antwort.
Es sind mehr als 50 Spalten und ca. 400 Zeilen, jeden Monat schwankende Anzahl von gefüllten Feldern. VG

 

Hallo,

folgendes Makro "DatumKonvertieren" in ein allgemeines VBA-Codemodul kopieren:

Code:

Sub DatumKonvertieren()
  Dim Z As Range
  Dim Dt() As String
  For Each Z In Selection.Cells
      If Len(Z) = 10 And IsDate(Z) Then
         Dt = Split(Z, ".")
         Z.Value = DateSerial(Dt(2), Dt(1), Dt(0))
         Z.NumberFormat = "DD.MM.YYYY"
      End If
  Next Z
End Sub

Prozedere:
1) Den Zellbereich, der die Datumsangaben als Text (im Format "TT.MM.JJJJ") enthält, markieren
2) Die Tastenkombination Alt+F8 eintippen und im Dialogfeld das Makro "DatumKonvertieren" auswählen und ausführen.
3) Der markierte Zellbereich enthält dann tatsächliche Datumsangaben, die mit TT.MM.JJJJ formatiert sind.

 

Moin!
Sehr viel schneller dürfte es sein, Text in Spalten auf die einzelnen Spalten anzuwenden.
Dies kann man natürlich auch mittels VBA abbilden.
Grob nach diesem Muster:

Code:

Sub Text_in_Datum()
Dim c As Range
For Each c In Range("A1").CurrentRegion.Columns
  c.TextToColumns c.Cells(1)
Next
End Sub

Gruß Ralf

 

Hallo Zusammen,
Danke für Eure Tipps, die mich weitergebracht haben. Damit sieht es so aus und es klappt.

Code:
Sub Text_in_Datum()
With Selection
.NumberFormat = "DD.MM.YYYY"
.FormulaLocal = .Value
End With
End Sub

Gruss Kai