Hi Matthias,
ich glaube ich hab mich unsauber ausgedrückt.
Set objRange = Workbooks(StrFile).Worksheets(3).Range("A2:A6601") 'Cells(11, 6).Resize(zeilen - 11, 1) 'Bereichlänge anpassen....
'Formel einfügen
objRange.FormulaLocal = "=(Tabelle2!B2-Tabelle2!C2)/MITTELWERT(Tabelle2!B2;Tabelle2!C2)"
Deine Formel referenziert ja immer auf Tabelle2! im Aktiven Workbook. Leider hat jedes der zu öffnenden Excel Dateien unterschiedliche Namen für Tabelle2!
Ich bräuchte für die Formel noch i.wie eine Anpassung, dass diese immer auf Worksheets(2) referenziert. Mit:
bjRange.FormulaLocal = "=(Worksheets(2).Name & !B2-Worksheets(2).Name & !C2)/Average(Worksheets(2).Name & !B2;Worksheets(2).Name & !C2)"
hat es leider nicht geklappt.
Es erscheint dann die Error Message: "Application-defined Error or Objetc-defined error"
Vielen Dank!
|