Und wegen der anderen Bedingung :
Option Explicit
Sub Bsp()
With Worksheets("Tabelle1")
With .Range("A10:A200")
.NumberFormat = "m/d/yyyy"
.FormulaR1C1 = "=RC3<>"""",TODAY(),"""")"
.Value = .Value 'Formelergebnis -> Wert
End With
With .Range("B10:B200")
.NumberFormat = "[$-F400]h:mm:ss AM/PM"
.FormulaR1C1 = "=RC3<>"""",NOW()-TODAY(),"""")"
.Value = .Value 'Formelergebnis -> Wert
End With
' Call .Parent.Save 'Mappe speichern
End With
End Sub
Habe das so abgeändert nur funktioniert das nicht, was habe ich da Falsch gemacht ?
|