Excel vba Datum formatieren

[sharky51]

Guten Abend Cadmus,
ja es gibt wohl einige Datumselemente wo man nicht weiß was sie bedeuten sollen - so wie Du es beschrieben hast.
Vielleicht gibt es noch eine Idee?

Ich habe trotzdem mal versucht was zu basteln. Kuckst Du:

Tabelle2

	A	B	C
1	Stellen	Original	Formatiert
2	7	1112019	'11.1.2019
3	7	1122019	'11.2.2019
4	7	2632018	'26.3.2018
5	7	2252018	'22.5.2018
6	7	2672018	'26.7.2018
7	6	112018	'1.1.2018
8	7	3102018	'3.10.2018
9	8	18112018	18.11.2018
10	8	25112018	25.11.2018
11	7	2122018	'21.2.2018
12	7	9122018	'9.12.2018
13	8	16122018	16.12.2018

Zahlenformate
Zelle	Format	Inhalt
C9	'TT.MM.JJJJ		43422
C10	'TT.MM.JJJJ		43429
C13	'TT.MM.JJJJ		43450

Zellen mit Format Standard werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiel..._addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.15 einschl. 64 Bit

Hier der Code:

Code:

Sub Datum_Umwandeln()
   For lngRow = 2 To Cells(Rows.Count, 3).End(xlUp).Row
       If (Len(Cells(lngRow, 3)) = 8 Or Len(Cells(lngRow, 3)) = 7 Or Len(Cells(lngRow, 3)) = 6) And IsNumeric(Cells(lngRow, 3)) Then
           If Len(Cells(lngRow, 3)) = 8 Then
               Cells(lngRow, 3).Value = CDate(Mid(Cells(lngRow, 3), 1, 2) & "." & Mid(Cells(lngRow, 3), 3, 2) & "." & Mid(Cells(lngRow, 3), 5, 4))
           ElseIf Len(Cells(lngRow, 3)) = 7 And IsNumeric(Cells(lngRow, 3)) Then
               strFull = Cells(lngRow, 3)
               strZahl = Left(strFull, 2)
               If strZahl >= 31 And Mid(Cells(lngRow, 3), 2, 2) <= 12 Then  '0 Or Mid(Z, 3, 2) > 12 Then
               Cells(lngRow, 3).Value = CSting2date(Cells(lngRow, 3))
               Cells(lngRow, 1).Interior.ColorIndex = 35 ' lindgrün
               Cells(lngRow, 3).Interior.ColorIndex = 35 ' lindgrün
               ElseIf Mid(Cells(lngRow, 3), 3, 1) = 0 And Left(Cells(lngRow, 3), 1) <= 9 Then
                   Cells(lngRow, 3).Interior.ColorIndex = 3 ' rot
                   Cells(lngRow, 3).Value = CSting2date(Cells(lngRow, 3))
           Else
               Cells(lngRow, 3).Value = CSting1date(Cells(lngRow, 3))
               Cells(lngRow, 1).Interior.ColorIndex = 44 ' orange
               Cells(lngRow, 3).Interior.ColorIndex = 44 ' orange
           End If
       Else
           Cells(lngRow, 3).Value = CSting1date(Cells(lngRow, 3))
       End If
   Else
       Cells(lngRow, 3).Value = CDate(Mid(Cells(lngRow, 3), 1, 1) & "." & Mid(Cells(lngRow, 3), 2, 1) & "." & Mid(Cells(lngRow, 3), 3, 4))
   End If
Next lngRow
End Sub

'Wenn Datum 7-stellig, links <= 31, Mid <=12
Function CSting1date(s As String) As String
   Dim t As String
   t = "." & Right(s, 4)
   s = Left(s, Len(s) - 4)
   t = "." & Right(s, 1) & t
   s = Left(s, Len(s) - 1)
   CSting1date = s & t
   'Z = CSting1date
End Function

'Wenn Datum 7-stellig, links >= 31, Mid <=12
Function CSting2date(s As String) As String
   Dim t As String
   t = "." & Right(s, 4)
   s = Left(s, Len(s) - 4)
   t = "." & Right(s, 2) & t
   s = Left(s, Len(s) - 2)
   CSting2date = s & t
   'Z = CSting2date
End Function

[sharky51]

Hallo Michael,

vielen Dank, werde Deinen Lösungsvorschlag morgen mal testen.

[snb]

Ein UDF:

Code:

Function F_snb(c00)
    F_snb = Format(c00, "00.00.0000")
    If Not IsDate(F_snb) Then F_snb = Format(c00, "0.0.0000")
    If Not IsDate(F_snb) Or Mid(F_snb, 4, 2) > 12 Then F_snb = Format(c00, "00.0.0000")
    F_snb = CDate(F_snb)
End Function

[sharky51]

Guten Morgen,

danke für den Vorschlag, aber wie binde ich die Funktion denn richtigerweise ein?

Wenn ich es so mache dann kommt eine Fehlermeldung in der Funktion: "Typen unverträglich" bei der Codezeile "F_snb = CDate(F_snb)"

Code:

Sub FormatTest()
   For lngRow = 2 To Cells(Rows.Count, 12).End(xlUp).Row
   Cells(lngRow, 12).NumberFormat = F_snb("L" & lngRow)
   Next lngRow
End Sub

[sharky51]

Hallo Michael,

habe Deine Routine mal getestet - funktioniert im Prinzip gut - nur mit den beschriebenen neuralgischen Werten klapp es leider nicht.
Siehe z.B. diese Werte hier:

HTML_AddIn11_12_2018_12_12_39

	L	M
1	Original	Ausgabe
2	1112019	N/A
3	1122019	N/A
11	2122018	N/A
60	3112018	N/A
292	1122018	N/A
391	3122018	N/A

Zahlenformate
Zelle	Format	Inhalt
M4	'TT.MM.JJJJ		43185
M364	'TT.MM.JJJJ		43739

Zellen mit Format Standard werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiel..._addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.15 einschl. 64 Bit

Dazu gibt es anscheinend keine praktikable Lösung. Du hast das ja bereits angemerkt.

[Kuwer]

Hallo Erich,

Dazu gibt es anscheinend keine praktikable Lösung. Du hast das ja bereits angemerkt.

das hattest Du doch hier schon eingesehen: #4

Gruß Uwe

[Der Steuerfuzzi]

Du kannst die Werte natürlich in ein Datum umwandeln, dumusst dich nur für einen Modus entscheiden (Tag zweistellig/Monat einstellig oder Tag einstellig/Monat zweistellig).
Oder gibt es sontige Anhaltspunkte, wie das Datum zu behandeln wäre (z. B. das Datum ist in einer Reihe von Werten im gleichen Monat o.Ä.)?

[sharky51]

Na ja, die Hoffnung stirbt ja angeblich zuletzt.
Aber ich lasse es jetzt mal gut sein!

Trotzdem vielen Dank an dieses tolle Forum!!!

[sharky51]

Der einzige Anhaltspunkt ist dass ich "weiß" welches Datum richtig ist - aber Excel spricht halt nicht mit mir
Werde die anfallenden Daten, in der Hoffnung dass es nicht zu viele sind, jetzt manuell formatieren.