Hallo Rina,

ich vermute mal da hilf nur eine Formel.

=DATUM(LINKS(A1;4);TEIL(A1;5;2);RECHTS(A1;2)) oder VBA
Link zur Datei

Gruß Hajo

Hallo Rina,

das könnte man mit einem Makro bereinigen. Nachfolgendes Makro ändert in Spalte A die zahlen in den entsprechenden Datumswert. Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

Option Explicit

Sub Text_in_Datum_wandeln()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 1) = CDate(Left(Cells(i, 1), 4) & "." & Mid(Cells(i, 1), 5, 2) & "." & Right(Cells(i, 1), 2))
End If
Next
End Sub

Wenn nicht Spalte A durchsucht werden soll, dann musst Du in den Cells-Anweisungen dort wo eine 1 steht gegen die Spaltenindexzahl austauschen. Die 1 steht für Spalte A. Eine 2 würde für Spalte B stehen, eine 3 für Spalte C usw. bis zur Zahl 256 für die Spalte IV. Außerdem muss in der Zeile

For i = 1 To Range("A65536").End(xlUp).Row

der Spaltenbuchstabe A getauscht werden.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Hajo und Oliver!

Riesen Dank für euere schnellen Antworten!!!
Habe jetzt die Lösung mit der Formel ausprobiert und es hat geklappt!! Echt klasse, sonst hätte ich noch Studen dran gesessen und es doch nicht hinbekommen. Echt cool, dass man hier so viel Hilfsbereitschaft findet!!! Vielen Dank!!! Das Makro probier ich jetzt auch mal aus!!

Vielen Dank nochmal!!!!!

Rina