Hallo Experten,

ich bekomme bei meinem Makro die Fehlermeldung 1004 Anwendungs- oder Objektdefinierter Fehler.

Ich möchte eigentlich nur diese Formel in alle Zeilen der Spalte I kopieren. (Wenn Funktion funktioniert soweit)

=WENN(UND(ISTZAHL(SUCHEN("PK";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2<=100);"i.O.";WENN(UND(ISTZAHL(SUCHEN("PS";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2<=95);"i.O.";WENN(UND(ISTZAHL(SUCHEN("PK";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2>100);"n.i.O.";WENN(UND(ISTZAHL(SUCHEN("PS";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2>95);"n.i.O.";""))))

Nach der Aufzeichnung kommt dieser Makro raus:

Sub Makro17()
'
' Makro17 Makro
'
Sheets("Auswertung").Activate
   Cells(2, 9).Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(ISNUMBER(SEARCH(""PK"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]<=100),""i.O."",IF(AND(ISNUMBER(SEARCH(""PS"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]<=95),""i.O."",IF(AND(ISNUMBER(SEARCH(""PK"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]>100),""n.i.O."",IF(AND(ISNUMBER(SEARCH(""PS"",RC[-3])),ISNUMBER(SEARCH(""Temperatur" & _ "[-4])),RC[-2]>95),""n.i.O."",""""))))"
    Selection.AutoFill Destination:=Range(Cells(2, 9), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 9)), Type:=xlFillDefault
    
End Sub

Die ersten 2 Zeilen und die letzte habe ich selber noch eingefügt.

Nun wird mir der Fehler ab ActiveCell.FormularR1C1 bis zum  Ende der Wenn Formel angezeigt.

Ich bin für jeden Tipp dankbar!!

Hab schon gelesen das man das R1C1 aus der Fromel rauslöschen soll, dass hat bei mir aber leider nichts gebracht.

Danke schonmal im voraus für eure Hilfe.

Gruß,

Daniel