Formeln in Zellbereich eintragen per VBA-Array
31.01.2013 16:48:57
Herbert
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
Dafür vielen Dank im Voraus!
Servus
Anzeige