Office - Word, Excel und Co. 9.745 Themen, 41.424 Beiträge

Verfolgung starten Optionen

Exel einzelne Tabellenblätter speichern

Blaufalke / 6 Antworten / Flachansicht Nickles

Hallo, vorhanden: Arbeitsmappe, 14 Tabellen, diverse Macros zum Ausdrucken und zur Tabellenauswahl.
Ich möchte nun auf einzelnen Tabellenblättern die Möglichkeit einer automatischen Speicherabfrage haben, (zb. beim Betätigen der in den Tabellen eingefügten Schaltfläche "Drucken" sollte automatisch die Abfrage zur Speicherung der gedruckten Seiten erscheinen).
In der Arbeitsmappe sind diese Tabellenblätter, die ausgedruckt werden, ausgeblendet. Und diese Blätter möchte ich dann seperat abspeichern um sie bei Bedarf wieder zur Verfügung zu haben. Auch sollte ich das Zielverzeihniss vorgeben können. Beim Speichern wird bisher immer die Datei "Eigene Dateien" aufgerufen.

genieße das leben, du hast nur das eine.
bei Antwort benachrichtigen
Exel einzelne Tabellenblätter speichern Olaf19
Hallo Schau mal hier, hilft vieleicht mit etwas Bastelarbeit weiter. ... hddiesel
Olaf19 hddiesel „Hallo Schau mal hier, hilft vieleicht mit etwas Bastelarbeit weiter....“
Optionen

Hi hddiesel,

klasse Lösung - das klingt vielversprechend, kannte ich auch noch nicht:

Option Explicit

Sub Einzeln_Speichern()
Dim blatt As Integer
On Error GoTo Einzeln_Speichern_Error

Application.ScreenUpdating = False
For blatt = 2 To Sheets.Count
Sheets(blatt).Copy
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
Next blatt
Application.ScreenUpdating = True

On Error GoTo 0
Exit Sub
Einzeln_Speichern_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") im Makro Einzeln_Speichern in Modul1"
End Sub

Bin zwar nicht der Fragesteller, trotzdem auch noch mal von mir:

THX
Olaf

Die Welt ist ein Jammertal ohne Musik. Doch zum Glueck gab es Bach, Beethoven, Haendel und Goethe (Helge Schneider)
bei Antwort benachrichtigen
Hallo Olaf Hallo blaufalke Man sollte noch nachtragen: Ab Blatt 2 Speichern: ... hddiesel
Oder auch: NUR Blatt Nr. 2 speichern Olaf19
Oder auch: NUR Blatt Nr. 2 speichern : Lösung Blaufalke