Aufgezeichnetes Makro bringt Fehler beim Ausführen
04.09.2014 15:23:26
Kasimir
Ich habe mir folgendes mit dem Makrorecorder aufgezeichnet:
Sub Makro2()
' Makro2 Makro
Range("Q2").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(Hilfstabelle!R3C2>0,Hilfstabelle!R4C2>"""",Hilfstabelle!R5C2>""""),IF(AND(RC[- _
3]=""ja"",RC[-2]=""ja"",RC[-1]=""ja""),""OK"",""NICHT OK""),IF(AND(Hilfstabelle!R3C2>0,Hilfstabelle!R4C2>""""),IF(AND(RC[-3]=""ja"",RC[-2]=""ja""),""OK"",""NICHT OK""),IF(AND(Hilfstabelle!R4C2>0,Hilfstabelle!R5C2>""""),IF(AND(RC[-2]=""ja"",RC[-1]=""ja""),""OK"",""NICHT OK""),IF(AND" & _
"belle!R3C2>0,Hilfstabelle!R4C2="""",Hilfstabelle!R5C8=""""),IF(AND(RC[-3]=""ja""),""OK" _
",""NICHT OK""),IF(AND(Hilfstabelle!R3C2=0,Hilfstabelle!R4C2>"""",Hilfstabelle!R5C2=""""),IF(AND(RC[-2]=""ja""),""OK"",""NICHT OK""),IF(AND(Hilfstabelle!R3C2=0,Hilfstabelle!R4C2="""",Hilfstabelle!R5C2>""""),IF(AND(RC[-1]=""ja""),""OK"",""NICHT OK"")))))))"
End Sub
Meine Frage nun, warum erhalte ich diesen Fehler und was muss ich am Makro ändern, so dass die Formel durch das Makro in die Zelle geschrieben wird.
Danke Euch schon mal für die Hilfestellung,
Kasimir
Anzeige