|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 37 Arbeitsblätter in einzelne Textdatein Speichern |
21.10.2020 19:50:11 |
Simonnnn |
|
|
|
21.10.2020 21:00:51 |
AlterDresdner |
|
|
|
22.10.2020 08:04:11 |
Mase |
|
|
|
22.10.2020 16:56:44 |
simonn |
|
|
|
22.10.2020 18:17:57 |
Simonnn |
|
|
|
22.10.2020 18:18:01 |
Simonnn |
|
|
|
22.10.2020 18:18:01 |
Simonnn |
|
|
|
22.10.2020 18:27:40 |
AlterDresdner |
|
|
Von:
Simonnnn |
Datum:
21.10.2020 19:50:11 |
Views:
997 |
Rating:
|
Antwort:
|
Thema:
37 Arbeitsblätter in einzelne Textdatein Speichern |
|
Ich habe folgendes Problem, ich muss aus einer Arbeitsmappe die ca. aus 37 Arbeitsblätter besteht 37 einzelne Textdateien machen. Hat bisher immer mit diesem Code funktionier.:
Sub aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt"
ActiveWorkbook.Close True
Next WsTabelle
End Sub
Wichtig dabei ist das das Textdok. den Namen des Arbeitsblatt bekommt.
Jeoch jetz kommt die Fehlermeldung Laufzeitfehler1004: Die Methode `Copy`für das Objekt`_Worksheet ist fehlgeschlagen.
Kann mir da jemand helfen?
|
- 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
|
37 Arbeitsblätter in einzelne Textdatein Speichern |
21.10.2020 19:50:11 |
Simonnnn |
|
|
|
21.10.2020 21:00:51 |
AlterDresdner |
|
|
|
22.10.2020 08:04:11 |
Mase |
|
|
|
22.10.2020 16:56:44 |
simonn |
|
|
|
22.10.2020 18:17:57 |
Simonnn |
|
|
|
22.10.2020 18:18:01 |
Simonnn |
|
|
|
22.10.2020 18:18:01 |
Simonnn |
|
|
|
22.10.2020 18:27:40 |
AlterDresdner |
|
|