Hi Matthias,
soweit klappt dein Code super! Kannst du mir bei einer Sache noch helfen?
Das Tabellenblatt auf das die Formel referenziert hat immer einen anderen Namen, steht aber immer an 2. Stelle im Workbook.
Gibt es eine Möglichkeit hier gegebenenfalls mit einem variablen Sheetnamen auf Tabelle2 zu verweisen?
Mit meinem Versuch hat es leider nicht geklappt:
objRange.FormulaLocal = "=(Worksheets(2).Name & !B2-Worksheets(2).Name & !C2)/Average(Worksheets(2).Name & !B2;Worksheets(2).Name & !C2)"
Bis jetzt ist "Tabelle2" das neu eingefügte Sheet. Als Ergebnis erhalte ich dann Div/0, da Sheet2 ja nicht die richtige Tabelle ist.
Für einen Überblick des variablen Workbooks: Worksheet(1) = Rohdaten, Worksheet(2) mit individuellen Sheet namen = Quelldaten für die Formel, Worksheet(3) = Tabelle für die Formel.
Das Copy Pasting hat aber super geklappt :-)
Dankeschön!
|