eine Formel kann ich mit VBA in eine Zelle mit folgendem Code eintragen:
ActiveCell.FormulaR1C1 = "=IF(RC[-64]="""","""",maxBlock2(ADDRESS(ROW()-1,COLUMN()-63)&"":""&ADDRESS(ROW()-1,54)&"",""&ADDRESS(ROW(),7)&"":""&ADDRESS(ROW(),COLUMN()-64),1)/2)"
Da ich aber über 1500 dieser Formeln gleichzeitig einsetzen muss, möchte ich diese Formeln nun per VBA in ein Array einlesen und dann in einem Rutsch in das Tabellenblatt schreiben. Dies habe ich mit dem folgenden Code vergeblich versucht:
Sub FormelnEintragen()
Dim ArrRestBlock1, c, r
Application.EnableEvents = False
ArrRestBlock1 = Range("BT19:DL20").Value
For r = 0 To 1
For c = 1 To 45
ArrRestBlock1(r, c) = _
"=IF(ADDRESS(ROW()19+r),COLUMN()-" & 63 & ")="""","""",maxBlock2(ADDRESS(ROW()-1, _
COLUMN()-" & 62 + c & ")&"":""&ADDRESS(ROW()-1,54)&"",""&ADDRESS(ROW(),7)&"":""&ADDRESS(ROW(),COLUMN()-" & 63 + c & "),1)/2)"
Next c
Next r
Range("BT19:DL20").Value = ArrRestBlock1
Application.EnableEvents = True
End Sub
Kann mir bitte jemand sagen, wo da der Fehler sitzt?Dafür vielen Dank im Voraus!
Servus