Hallo!
Ich hab folgendes Problem: Ich möchte ein komplettes Tabellenblatt mit Formelbezug in ein anderes kopieren, und das mittels Schleife für mehrere Tabellenblätter gebündelt in einer neuen Datei; ohne Formeln hat das problemlos geklappt. Um Formeln dabei zu haben, habe ich nunmehr das ".Formula" an "Sheet.Copy" hinzugefügt. Obwohl das erste Tabellenblatt korrekt kopiert wird (zwar nicht in das aktive Worksheet aber in ein neues), hört die Schleife nach dem ersten Blatt auf und ich weiß absolut nicht warum. Als Fehlermeldung bekomme ich "242 Laufzeitfehler".
Hier ist der Code:
Filename = Dir(Path1 & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path1 & Filename, ReadOnly:=True, UpdateLinks:=False
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name Like "*korr*" Then
Sheet.Copy.Formula After:=ThisWorkbook.Sheets(1)
End If
Next Sheet
Workbooks(Filename).Close savechanges:=False
Filename = Dir()
Loop
Ich wäre über jeden Hinweis, woran das Problem liegt, super dankbar!!
Viele Grüße
Andreas
|