Datumswerte in Spalte richtig umwandeln
02.12.2008 11:57:00
chris
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dateumswerte nicht in richtiger Reihenfolge.
Wenn ich jetzt in die zelle gehe und mir das Format anschauen ist es nicht Datum sondern Standart.
Wenn ich die zelle bearbeite z.b F2 drücke und dann einfach Enter drücke und mir dann das Zelenformat anschaue passt es.
Also es steht nicht merh auf Standart sondern auf Datum so "TT.MM.JJJJ"
Wenn ich mit dem Makro das ganze aufzeichne zeigt es mir das an.
ActiveCell.FormulaR1C1 = "4/10/2008"
wie kann ich das in eine schleife einbauen so das es mir alle Werte von Zeile 3 bis zeile x runtergeht und in allen zellen in denen ein Wert vorhanden ist diesen wert als Datum umformatiert.
Mein Ansatz war dieser Klappt aber leider nicht format bleibt Standart.
Sub Makro1()
Dim x As Integer
For x = 3 To 10
Cells(x, 4).FormulaR1C1 = Format(Cells(x, 4), "dd.mm.yyyy")
Next
End Sub
beim Aufzeichnen fügt er die Datumswerte so ein:
ActiveCell.FormulaR1C1 = "4/10/2008"
'und dann sind auch die Formate richtig.
Danke euch allen !
gruß Chris