Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Gast am November 16, 2011, 22:30:56 Nachmittag

Titel: Einzelnes Tabellenblatt abspeichern
Beitrag von: Gast am November 16, 2011, 22:30:56 Nachmittag
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
Titel: Antw:Einzelnes Tabellenblatt abspeichern
Beitrag von: Officer am November 17, 2011, 12:56:02 Nachmittag
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
Titel: Antw:Einzelnes Tabellenblatt abspeichern
Beitrag von: Bernd am November 17, 2011, 13:11:59 Nachmittag
Hallo Officer,

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

Vielen herzlichen Dank für die Hilfe

Bernd