Datumsformat
05.03.2006 18:42:58
Manni
ich habe da ein Problem. Wie kann ich es erreichen, dass ein Makro nur die tatsächlichen Daten umwandelt, die auch vorhanden sind.
Zum Beispiel soll das Datum aus der Spalte L, dass nur Zahlen enthält, in Spalt M im Datumsformat erscheinen. In Spalte L sind aber mal 1140 Zeilen oder mal 1700 Zeilen. Es sollen aber immer nur die tatsächlichen Zellen geändert werden. Als Beispiel meine Formel.
Sub Formel()
If MsgBox( _
prompt:="Wirklich ändern ?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Range("AM1").ClearContents
ActiveCell.FormulaR1C1 = _
"=DATE(RIGHT(RC[-1],4)*1,MID(RC[-1],IF(LEN(RC[-1])=8,3,2),2)*1,LEFT(RC[-1],IF(LEN(RC[-1])=8,2,1))*1)"
Range("M3").Select
Selection.AutoFill Destination:=Range("M3:M1141"), Type:=xlFillDefault
Range("M3:M1141").Select
Range("M3").Select
End Sub
Danke für Euere Mühe im voraus.
Anzeige