Hallo!
In einer ersten Tabelle wird mit dem Befehl:
Set wb2 = xlApp.Workbooks.Open(theFilename, False, False)
eine zweite Tabelle geöffnet.
Während diese zweite Tabelle geöffnet ist, finden in der ersten noch weitere Aktionen statt.
Mit dem Befehl in der ersten Tabelle wird dann die geöffnete zweite unter einem anderen Namen gespeichert:
wb2.SaveAs newFilename, FileFormat:=51
Zu diesem Zeitpunkt (SICHERN) sollen in der zweiten Tabelle noch Formeln zugefügt und Formatierungen vorgenommen werden:
Das Zufügen von Formeln funktioniert:
Formel = "=SUMIF(C[-5]," & Chr(34) & Jahr1 & Chr(34) & ",C)"
Range("J10").FormulaR1C1 = Formel
Was jedoch nicht funktioniert (es wird kein Fehler im Coding ausgelöst), ist die Formatierung oder Zeilen zufügen:
With Worksheets.Item(2).Columns("D")
.ColumnWidth = 10
End With
Rows(10).EntireRow.Insert
Ich habe schon verschiedene Varianten getestet - klappt leider im oben beschriebenen Szenario nicht!
Wenn diese zweite Tabelle jedoch manuell aufgerufen wird, dann wird zum Zeitpunkt SICHERN genau das selbe Coding durchlaufen und ALLE Aktionen funktionieren wie gewünscht!
Hat jemand eine Idee?
Danke im Voraus!
Torsten
|