Formel bis zum Tabellenende automatisch kopieren

Bild

Betrifft: Formel bis zum Tabellenende automatisch kopieren
von: BerndSchweiger
Geschrieben am: 15.04.2005 08:54:16
Hallo,
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

Bild

Betrifft: AW: Formel bis zum Tabellenende automatisch kopieren
von: u_
Geschrieben am: 15.04.2005 09:07:26
Hallo,

Sub formeln()
  Dim iRows As Long
  iRows = Range("D65536").End(xlUp).Row
  Range(Cells(3, 10), Cells(iRows, 10)).FormulaR1C1 = _
    "=IF(ISERROR(AND(RC[-5],RC[-6])=""""),"" "",ROUND(RC[-5]-RC[-6],2))"
  Range(Cells(3, 11), Cells(iRows, 11)).FormulaR1C1 = _
    "=IF(ISERROR(RC[-1]/RC[-7]),"""",RC[-1]/ROUND(RC[-7],2))"
End Sub

Gruß
Bild

Betrifft: Super - Danke
von: BerndSchweiger
Geschrieben am: 15.04.2005 09:22:40
...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel bis zum Tabellenende automatisch kopieren"