Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einzelnes Blatt in neue Datei speichern

Einzelnes Blatt in neue Datei speichern
ptonka
Hallo zusammen,
ich habe eine größere Datei ("Sammelwerte.xls", die immer wieder verändert wird.
Die Datei enthält mehrere Sheets.
Ich benötige ein Makro, welches mir ein spezielles Sheet in dieser Datei mit dem
Sheetnamen "Ausgabe" in eine neue Datei mit einem neuen Namen "Ausgabe_neu"
speichert.
Die neue Datei soll im gleichen Verzeichnis wie die Originaldatei abgelegt werden
(C:\Auswertungen).
Wie kann ich das bewerkstelligen?
Danke im Voraus,
Gruß,
Ptonka

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Einzelnes Blatt als separate Datei speichern
12.10.2010 12:49:11
NoNet
Hallo Ptonka,
hier das passende Makro (ungetestet, sollte aber dennoch funktionieren !) :
Sub EinzelnesBlattSpeichern()
Dim wbAkt As Workbook, wbNeu As Workbook
Set wbAkt = Workbooks("Sammelwerte.xls")
Set wbNeu = wbAkt.Sheets("Daten").Copy
wbNeu.SaveAs wbAkt.Path & "\Ausgabe_neu.xls"
wbNeu.Close 'Neue Datei wird geschlossen
End Sub
Gruß, NoNet
Aktuelle Infos und Anmeldung zum => Exceltreffen 2010 <= in Neubrandenburg (15.-17.10.2010) :
Treffen der Excel-Freunde und zahlreicher Helfer aus diversen Excel-Foren.
Auch DU kannst daran teilnehmen ... => Klicke hier <=

Anzeige
AW: Einzelnes Blatt als separate Datei speichern
12.10.2010 13:41:32
ptonka
Hallo NoNet,
prima - Danke - der Ansatz war gut. Ich habe es noch etwas verkürzen können - funzt auch:
Sheets("Blattname").Copy
With ActiveWorkbook
.SaveAs Filename:=Pfadname & Dateiname
.Close
End With
Gruß,
Ptonka

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige