Excel erkennt Datum nicht als Datum an

[LLCooLAbduL]

Hallo zusammen,

ich habe folgendes Problem.

In meine Excel Tabelle füge ich externe Daten ein. Diese haben das Format TT.MM.JJ, als Beispiel 01.05.18

Wenn ich die Daten eingefügt habe, bleiben sie auf der linken Seite der Zelle stehen, also erkennt Excel sie nicht als Datum an.
Die einzige Abhilfe die ich bislang habe, ist die Zellen der gesamten Spalte auf das richtige Format zu formatieren und anschließend jedes einzelne Datum von Hand neu einzugeben. Dann rutscht jedes Datum auf die rechte Seite der Zelle und man kann die gesamte Liste wunderbar nach dem Datum sortieren.

Auch wenn man die Spalte vor dem Einfügen der Daten entsprechend formatiert nimmt Excel nicht das richtige Format.

Folgendes Script habe ich im Internet schon gefunden. Ich habe versucht es so umzubauen, dass es automatisch für einen bestimmten Zellenbereich auf einem bestimmten Reiter ausgeführt wird. Leider erfolglos.
Könnt ihr hier weiterhelfen?
Danke im Voraus.

Sub FormatTextToDatum()

Dim rngCell As Range

For Each rngCell In Selection.Cells
    With rngCell
        .NumberFormat = "General"
    If IsDate(.Text) Then
        .Value = DateValue(.Text)
    End If
    End With
Next 'rngCell
End Sub

[steve1da]

Hola,

in eine leere Zelle eine 1 schreiben, diese kopieren, deine "Datumswerte" markieren, rechte Maustaste, Inhalte einfügen, multiplizieren.

Gruß,
steve1da

[LLCooLAbduL]

ich muss dieses Dokument jeden Tag erstellen. Ich möchte dieses Marko automatisiert starten lassen.
Nicht jeden Tag das Datum per Hand formatierten.

[gmg-cc]

Moin,
ich nehme an, dass der Code nicht von dir stammt (sonst wüsstest du dir gewiss zu helfen) 
Darum habe ich das Teil einfach einmal geschrumpft und meiner Schreibweise angepasst. Die Variable c steht übrigens für Cell.

Code: [Auswählen]

Sub FormatTextToDatum()
   Dim c As Range
   
   For Each c In Selection
      If IsDate(c) Then
        c.NumberFormat = "DD.MM.YYYY"
        c.Value = CDate(c)
      End If
   Next c
End Sub