Hallo,
es muss nicht sein, dass es daran liegt: dennoch wäre es besser, wenn du vollständig referenzierst:
Set wb2 = xlApp.Workbooks.Open(theFilename, False, False)
wb2.SaveAs newFilename, FileFormat:=51
Formel = "=SUMIF(C[-5]," & Chr(34) & Jahr1 & Chr(34) & ",C)"
wb2.Worksheets(2).Range("J10").FormulaR1C1 = Formel 'evtl. falsches Tabellenblatt
With wb2.Worksheets.Item(2).Columns("D")
.ColumnWidth = 10
End With
wb2.Worksheets(2).Rows(10).EntireRow.Insert 'evtl. falsches Tabellenblatt
Damit stellst du sicher, dass auch in der richtigen Datei, im richtigen Tabellenblatt agiert wird.
Dort, wo ich "evtl. falsches Tabellenblatt" geschrieben habe, weiß ich nicht, ob du nicht ein anderes Tabellenblatt ansprechen möchtest.
Das musst du evtl. anpassen.
Ne andere Idee habe ich gerade nicht.
Grüße, Ulrich
|