Einzelnes Tabellenblatt abspeichern

[Gast]

Hallo,

ich habe eine Arbeitsmappe mit einigen Tabellenblätter. Ich bräuchte eine Lösung, um ein einziges beliebiges Tabellenblatt in eine eigene Arbeitsmappe zu verschieben und unter dem Blattnamen abzuspeichern.

Wie stelle ich das am besten per VBA an?

Gruß

Bernd

[Officer]

Hallo Gast,

der folgenden VBA-Code ruft eine Input-Box auf, in der du das Tabellenblatt eintragen kannst, welches Du in eine andere Arbeitsmappe auslagern und dann abspeichern möchtest. Anschließend wirst Du noch gefragt, wie die neue Datei heißen soll, die du abspeichern möchtest. Anstatt die Input-Box aufzurufen kannst Du hier auch den Dateinamen angeben, z. B. den erfassten Blattnamen aus der Inputbox.

Der Code speichert die Datei anschließend im gleichen Verzeichnis unter dem angegebenen Dateinamen ab.

Hier der Code

Code: Visual Basic

1. Sub BlattSpeichern()
2. On Error GoTo fehlermeldung
3. Dim TBName$, WBName$
4.  
5. TBName = InputBox("Welches Tabellenblatt soll gespeichert werden?" & Chr(13) & _
6. "Bitte den Blattnamen eingeben:")
7. If TBName = "" Then Exit Sub
8.  
9. WBName = InputBox("Unter welchem Dateinamen soll das Tabellenblatt gespeichert werden?" & Chr(13) & _
10. "Bitte den Dateinamen eingeben:")
11. If WBName = "" Then Exit Sub
12. Worksheets(TBName).Copy
13. ActiveWorkbook.SaveAs WBName
14. ActiveWorkbook.Close
15. Exit Sub
16.  
17. fehlermeldung:
18. MsgBox "Es ist ein Fehler aufgetreten!"
19. End Sub
20.  

Ich hoffe, dass hilft Dir weiter.

Viele Grüße

Officer

[Bernd]

Hallo Officer,

vielen Dank für den Code. Das ist genau das, was ich gesucht habe.

Vielen herzlichen Dank für die Hilfe

Bernd