Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Kopieren eines Tabellenblatts mit Formeln |
20.04.2020 14:27:47 |
Andreas Thiele |
|
|
|
20.04.2020 17:12:20 |
Gast61736 |
|
|
|
21.04.2020 10:17:40 |
Andreas |
|
|
|
20.04.2020 17:25:04 |
Mase |
|
|
|
20.04.2020 17:27:42 |
Mase |
|
|
|
21.04.2020 10:16:42 |
Andreas |
|
|
|
21.04.2020 01:03:16 |
Gast89055 |
|
|
|
21.04.2020 07:09:02 |
Mase |
|
|
|
21.04.2020 10:16:00 |
Gast67221 |
|
|
|
21.04.2020 11:17:02 |
Mase |
|
|
|
21.04.2020 13:43:47 |
Andreas |
|
|
|
21.04.2020 14:01:44 |
Andreas |
|
|
|
21.04.2020 14:43:20 |
Gast91029 |
|
|
Von:
Andreas Thiele |
Datum:
20.04.2020 14:27:47 |
Views:
1068 |
Rating:
|
Antwort:
|
Thema:
Kopieren eines Tabellenblatts mit Formeln |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Kopieren eines Tabellenblatts mit Formeln |
20.04.2020 14:27:47 |
Andreas Thiele |
|
|
|
20.04.2020 17:12:20 |
Gast61736 |
|
|
|
21.04.2020 10:17:40 |
Andreas |
|
|
|
20.04.2020 17:25:04 |
Mase |
|
|
|
20.04.2020 17:27:42 |
Mase |
|
|
|
21.04.2020 10:16:42 |
Andreas |
|
|
|
21.04.2020 01:03:16 |
Gast89055 |
|
|
|
21.04.2020 07:09:02 |
Mase |
|
|
|
21.04.2020 10:16:00 |
Gast67221 |
|
|
|
21.04.2020 11:17:02 |
Mase |
|
|
|
21.04.2020 13:43:47 |
Andreas |
|
|
|
21.04.2020 14:01:44 |
Andreas |
|
|
|
21.04.2020 14:43:20 |
Gast91029 |
|
|