Formel bis zum Tabellenende automatisch kopieren
15.04.2005 08:54:16
BerndSchweiger
folgendes:
In Spalten J3 und K3 möchte ich zu einer bestehenden Exceldatei zusätzlich automatisch die Abweichungen ausweisen.
Mein Problem besteht jetzt darin, dass die Formeln der beiden Spalten immer bis zum Tabellenende automatisch kopiert werden sollen.
(die Tabelle wird täglich neu erstellt und hat eine variable Länge)
Hier meine 2 Formeln:
Range("J3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(AND(RC[-5],RC[-6])=""""),"" "",ROUND(RC[-5]-RC[-6],2))"
Range("K3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(RC[-1]/RC[-7]),"""",RC[-1]/ROUND(RC[-7],2))"
Kann mir da jemand helfen?
Schon jetzt vielen Dank
Gruß
Bernd