Excel CDate Probleme mit Datumsformat

Sub Test () Dim a As String Dim ptr As Long ptr = 1 a = "start" While a "" a = Sheets("Eingabe").Range("I" & ptr) If a = "" Then Else a = CDate(a) End If Sheets("Eingabe").Range("I" & ptr) = a ptr = ptr + 1 Wend End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Ulli,
aufgrund des Laufzeitfehler 13 ist die Datumszelle nicht mit MMM DD, YY formatiert, sondern es steht tatsächlich der Wert "Dec 15, 20" in der Zelle - und somit "nur" Text; da hilft CDate nicht.
Du musst immer die ersten 3 Zeichen (=Monat) auslesen + anpassen: aus "Dec 15, 20" muss "12 15, 20" werden.
Jetzt das Komma entfernen: aus "12 15, 20" muss "12 15 20" werden.
Jetzt Monat + Tag miteinander tauschen: aus "12 15 20" muss "15 12 20" werden
Jetzt die Leerzeichen mit Punkten ersetzen: aus "15 12 20" muss "15.12.20"
Und nun den falschen Zellwert mit CDate("15.12.20") ersetzen.


If a  "" Then
Select Case Left(a, 3)
Case "Jan"
a = Replace(a, "Jan", "01")
Case "Feb"
a = Replace(a, "Feb", "02")
Case "Mar"
a = Replace(a, "Mar", "03")
Case "Apr"
a = Replace(a, "Apr", "04")
Case "May"
a = Replace(a, "May", "05")
Case "Jun"
a = Replace(a, "Jun", "06")
Case "Jul"
a = Replace(a, "Jul", "07")
Case "Aug"
a = Replace(a, "Aug", "08")
Case "Sep"
a = Replace(a, "Sep", "09")
Case "Oct"
a = Replace(a, "Oct", "10")
Case "Nov"
a = Replace(a, "Nov", "11")
Case "Dec"
a = Replace(a, "Dec", "12")
End Select
a = Replace(a, ",", "")
a = Mid(a, 4, 2) & "." & Left(a, 2) & "." & Right(a, 2)
Sheets("Eingabe").Range("I" & ptr) = CDate(a)
End If

Das Ganze geht bestimmt auch kürzer. Ich hab den Code jetzt einfach so aufgeschrieben - ungetestet, ohne Bsp-Datei.
Hilfts?
Ciao
Thorsten

Hallo,
Entschuldigung ich wollte nicht jammern sondern nur meinen Kollegen und mir die Arbeit erleichtern und vor allem Fehler vermeiden. Bei über 1000 Datensätzen am Tag können nämlich auch mit simplen Schritten Fehler passieren.
Die Beispieldatei habe ich hochgeladen - Es geht um das Makro Datenbearbeitung_3

https://www.herber.de/bbs/user/143454.xlsm

Folgender Fehler: solange das Datum in Monaten liegt die in deutsch gleich abgekürzt werden wie in Amerika z.B. Apr oder Jun klappt das Makro problemlos. Wenn es im May oder Dec liegt dann kommt der Makrofehler. Aktueller Lösungsansatz ist "Suchen und Ersetzen" und dann einfach Dec gegen Dez ändern --> dann geht es wieder.
Kann man klug ein Replace mit in dieses Makro einbauen?
Falls das zu viel Aufwand ist bleiben wir bei Suchen und Ersetzen, aber ich wollte es gerne schöner lösen.

Sub wandeln() Dim strMonat As String Dim i As Long For i = 1 To Cells(Rows.Count, 9).End(xlUp).Row With Cells(i, 9) '---Daten in SpalteI strMonat = "." & Replace(Replace(Replace(Replace(Left(.Value, 3), "ar", "rz"), "y", "i"), " _ ct", "kt"), "ec", "ez") .NumberFormat = "dd.mm.yy" .Value = CDate(Mid(.Value, 5, 2) & strMonat & "." & Right(.Value, 2)) End With Next End Sub

Beliebteste Forumthreads (12 Monate)

Excel CDate Probleme mit Datumsformat

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread