HILFE Formelfehler im Code!!!!!
Tom
bin mit meinem Latein am Ende.
Nachstehende Formel (der ausgezifferte Teil funzt nur der nicht ausgezifferte irgendwie nicht) im Makro bricht immer ab, bin ratlos und frustiert.
Sub Formeln()
Dim intRow As Integer
intRow = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
'Range("Archiv!D2").FormulaLocal = "=WENN(C2="""";"""";TEXT(C2;""TT.MM.JJJJ""))"
'Range("Archiv!D2:D" & intRow).FillDown
'Range("Archiv!D:D") = Range("Archiv!D:D").Value
'Range("Archiv!F2").FormulaLocal = "=WENN(E2="""";"""";TEXT(E2;""TT.MM.JJJJ""))"
'Range("Archiv!F2:F" & intRow).FillDown
'Range("Archiv!F:F") = Range("Archiv!F:F").Value
Range("Archiv!L2").FormulaLocal = "=WENN(Oder(D2<(Heute()-366);F2<(Heute()-366));""älter1Jahr"";""""))"
Range("Archiv!L2:L" & intRow).FillDown
Range("Archiv!L:L") = Range("Archiv!L:L").Value
End Sub
Wer kann mir bitte helfen.
Danke Thomas