Formel per VBA
reinhardt
ich fülle einen Tabellenbereich mit vielen Formeln per VBA. Nun verändert sich desöfteren die Anfangs- oder Endzeile des Formelbereiches, sodass ich immer mühselig den ganzen Code ändern muß.
Meine Idee, die 55 durch SZ und die 3000 durch LZ zu ersetzen klappt jedoch noch nicht richtig.
Kann mir bitte jemand helfen?
Formel im Original =SUMMEWENN($A$55:$A$3000;A3;$C$55:$C$3000)
Gruß Reinhardt
Sub Test()
Sheets("Liste").Select
SZ = 5 'Startzeile Formel
EZ = 3000 'Endzeile Formel
Range("C3").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R55C1:R3000C1,RC[-2],R55C3:R3000C3)"
End
Sub
Anzeige