Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einzelnes Tabellenblatt speichern mit Makro

Forumthread: Einzelnes Tabellenblatt speichern mit Makro

Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 10:56:03
Gunter
Hallo,
ich habe eine Excel Datei mit mehreren Tabellenblättern. In einem davon mache ich Abfragen. Wie kann ich NUR dieses eine Tabellenblatt in einer neuen Datei speichern? Ist wichtig, weil ich die Dateigröße klein halten will!!Wichtig ist, die Ursprungsdatei darf nicht verändert werden und sollte auch als aktuelle Datei wieder zur Verfügung stehen. Für den Pfad und die Namensgebung der neuen Datei verwende ich folgendes Makro:

Sub Speichern()
Const s = "J:\_schueco_divers"
Dim bm
bm = InputBox("Dateiname:", "Speichern als", Format(Now, "yyyy-mm-dd") & "-Bestellung")
ThisWorkbook.SaveAs s & "\" & "-" & bm & ".xls"
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 11:02:10
Hajo_Zi
Hallo Gunter

Einzelnes Register speichern

Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:=“D:\Eigene Dateien\Hajo\“ & ActiveSheet.Name & „.xls“
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 11:15:49
Gunter
Hallo Hajo,
habe den Pfad auf mein PC abgestimmt:


Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:=“J:\_schueco_divers\“ & ActiveSheet.Name & „.xls“
End Sub


Bekomme aber nun die Meldung : Fehler beim Kompilieren ???????

Gunter
Anzeige
AW: Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 11:17:12
Hajo_Zi
Hallo Gunter

es sind keine Anführungszeichen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 11:35:25
Gunter
Hallo Hajo,
funktioniert nun, dass die datei in den richtigen Pfad geschrieben wird. Die Datei wird jedoch mit allen 3 Registern/Tabellenblättern abgespeichert und nicht wie gewünscht nur
das aktuelle. Die Dateigröße bleibt auch dieselbe!


Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="J:\_schueco_divers" & ActiveSheet.Name & „.xls“
End Sub

Anzeige
AW: Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 11:40:37
Hajo_Zi
Hallo Gunter

Bei mir wird nur das einzelene Register gespeichert. Was anderes sagt der von mir vorgeschlagene Code auch nicht aus.

Bei Fragen zu meiner Antwort, antworte ich nur, wenn die Frage hinter meiner Antwort steht oder ich lustig bin.
Mit der automatischen E-Mailbenachrichtigung werden nur die letzten beiden Beiträge angezeigt und in diesem Fall sehe ich meine Antwort nicht mehr, wenn die Frage nicht richtig plaziert wurde.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige