mit welchem Makro kann ich "Mi, 08.08.2007" in "08.08.2007" ersetzen?
Würde mich über den ensprechenden Code freuen.
Danke
PS: normale Formatierung ist nicht relevant, da importierte Daten
Sub Datum_Umw()
Dim lngZ As Long, arrV As Variant, zz As Long
lngZ = Cells(Rows.Count, 3).End(xlUp).Row
Range(Cells(2, 3), Cells(lngZ, 3)).NumberFormatLocal = "TT.MM.JJJJ"
arrV = Range(Cells(2, 3), Cells(lngZ, 3))
For zz = 1 To lngZ - 1
arrV(zz, 1) = DateValue(Right(arrV(zz, 1), 10))
Next zz
Range(Cells(2, 3), Cells(lngZ, 3)) = arrV
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
B | C | |
4 | Mi, 01.08.2007 | 01.08.2007 |
Formeln der Tabelle | ||||
|