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"",RC[-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
Bei der letzten Suche wurde aus warum auch immer nach Temperatur ein &_ eingefügt.
Dieser Makro Funktioniert jetzt
|