Mir ist nicht klar, ob ich die lange Codezeile auf mehrere Zeilen verteilen kann (und wenn ja, wo das hier im konkreten Fall geht.
Sub ArrayFormelnEintragen()
Dim Zelle as Range
For Each Zelle in Range ("Eintrag")
With Zelle
.FormulaArray = "=IF(RC13="""","""",INDEX(INDIRECT(""'""&_Q&RC4&""'!""&N_T(R2C)&""2:""& _
N_T(R2C)&""12""),MAX(IF((INDIRECT(""'""&_Q&RC4&""'!E2:E12"")
Gruss, Peter