Datum bereinigen
26.10.2018 12:50:37
Axel
ich habe in einem Workbook eine Menge (355 oder so) Arbeitsblätter. In der ersten Spalte des Arbeitsblattes ab der dritten Zeile steht ein Datum, was aber nicht immer als Datum erkannt wird.
In jeder Tabelle habe ich nämlich dann Ausreißer wie:
6-Mar-2018
5-Dec-2017
...
Mein Plan ist, zu schauen, ob in einer Zelle ein Datum drin steht, wenn nicht, den "String" auseinanderzuschneiden und als ein Datum wiederzusammenzusetzen.
Wie ich alle Tabellenblätter durchgehe, weiß ich bereits:
Dim WsTab As Worksheet
Dim lRow as Long
Dim i as Integer
For each WsTab in Sheets
lRow= ActiveSheet.Cells(Rows.Count,1).End(xlup).Row
For i = 3 to lRow
Nun habe ich aber keine Ideen, wie ich am besten das Datum überprüfe und dann ggf. den String in ein Datum umformatiere.
Hat hier jemand Ideen?
For ech