Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblätter in einzelne Dateien abspeichern

Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 09:08:26
Michel
hallo,
wie kann ich jedes einzelne Arbeitsblatt einer Datei in eine einzelne Datei kopieren bzw. abspeichern. Das ganze sollte automatisch laufen und den jeweiligen blattname in der datei als name für die neue datei verwenden.
Anwendung: ich habe dateien mit teilweise 50 Diagrammen und möchte diese nun einzeln in dateien verwalten.

vielen Dank im Voraus
tschüß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 09:09:50
Hajo_Zi
Hallo Michel

für eine Tabelle

Einzelnes Register speichern

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


da mut Du nur noch eine Schleife rumlegen.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 09:26:24
michel
vielen dank für die antwort,
es funktioniert auch prima für ein blatt, aber ich habe keine ahnung wie ich da ein schleife programmieren soll. ich weiß nicht wie ich die einzelnen blätter anwählen soll da diese alle unterschiedliche namen haben.

tschau
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 09:38:00
Hajo_Zi
Hallo Michel

mal ungetestet.


Private Sub Speichern()
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
WsTabelle.Copy
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Hajo\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next WsTabelle
End Sub


Die neuen Dateien werden gleich alle geschlossen.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 09:57:13
michel
Danke,
funktioniert bei tabellen prima, allerdings nicht bei diagrammen. Gibt es dafür auch eine lösung?

tschau
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 10:05:48
michel
Danke,
funktioniert bei tabellen prima, allerdings nicht bei diagrammen. Gibt es dafür auch eine lösung?

tschau
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 10:09:34
Hajo_Zi
Hallo Michel

mal ungetestet ersetze Worksheets durch Sheets


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Arbeitsblätter in einzelne Dateien abspeichern
25.09.2003 10:55:16
michel
Vielen dank für deine hilfe. Mit sheets hat es nicht hingehauen. Habe mit charts gearbeitet


Sub Blattspeichern2()
For a = 1 To Charts.Count
Charts(a).Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\1\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next
End Sub


tschau
ms
Danke für die Rückmeldung oT
25.09.2003 12:23:59
Hajo_Zi

304 Forumthreads zu ähnlichen Themen

Exceldatei automatisch in mehrere Dateien zerlegen
Sieben

Hallo Zusammen,
eine Frage zur Automatisierung von Arbeiten in Excel.
Habe jetzt eine Datei bekommen, in der pro Land ein Arbeitsblatt erstellt wurde. Ich möchte diese Arbeitsblätter einzeln als Exceldateien abspeichern.
Gibt es hier eventl. per VBA die Möglichkeit dazu, ohne jedes...
28.09.2009 15:33:46
Thread-ID: 1106048
3 Beiträge
Anzeige
Inhalt einer Tabelle in mehreren Tabellen anzeigen
Ivek

Hallo Community!
Ich habe wieder ein Problem! Ich will Inhalte aus der "Tabelle1" in weitere Tabellen (Tabelle2, Tabelle3, Tabelle4...) anzeigen. Dies funktionier auch. Ich habe dazu diesen Code verwendet:
Worksheets("ET").Activate
Worksheets("ET").Rows(i).Select
Selection.Copy<...
21.08.2012 14:31:26
Thread-ID: 1275882
7 Beiträge
Datei in mehrere Datei aufteilen
Peter

Liebes Forum,
ich habe eine einfache Datei (TestX). Nun soll diese Datei (TestX) per Makro auf mehrere Dateien z.B. Test1, Test2 und Test3 aufegeteilt werden wobei die Anzahl der Texte und somit dar Dateien variabel ist.
Bitte um Eure Hilfe.
TextX: https://www.herber.de/bbs/user/88...
18.12.2013 12:03:51
Thread-ID: 1342976
5 Beiträge
Anzeige
Tabelle nach mehreren Kriterien durchsuchen
Uli

Hallo,
ich habe ein Tabellenblatt mit 20 Spalten. Dazu habe ich eine Userform entworfen, die diese Tabelle nach mehreren Kriterien durchsuchen und die zutreffenden Zeilen in eine neue Tabelle schreiben soll.
Die Suchkriterien betreffen Spalte 12, 17 und 19.
Beispiel: Spalte 12 trif...
23.07.2015 12:29:09
Thread-ID: 1438067
3 Beiträge
Worksheet in einzelne Dateien speichern
th-dx100

Hallo Zusammen,
habe eine Liste mit ca.10000 Einträgen. Diese habe ich per Makro in einzelne Worksheets getrennt.
(Nach einen Suchkriterium).
Jetzt möchte ich die einzelnen Blätter in einzelnen Dateien abspeichern.
Wie kann ich das machen? Habe keinen Ansatz gefunden das in VBA...
19.10.2015 19:55:28
Thread-ID: 1453205
2 Beiträge
Tabelle nach Kriterien zusammenfassen
muehli

Hallo zusammen,
ich habe ein Problem, bei dem ich nicht weiter komme.
Ich habe eine Tabelle (siehe Anhang), die ich gerne zusammengefasst hätte.
Das Ganze soll per Button realisiert werden (VBA).
https://www.herber.de/bbs/user/100991.xlsx
Es gibt hier zwei Bedigungen, nach d...
23.10.2015 13:04:24
Thread-ID: 1453979
4 Beiträge
Tabelle nach Kriterien gruppieren
Olga
Hallo Spezialisten,
Tabelle gem. Vorgaben und wenn Titel fett gruppieren.
In Anlage meine Tabelle betreffend gruppieren.
Danke für Eure Hilfe!
Gruß
Olga
https://www.herber.de/bbs/user/102470.xlsm
29.12.2015 06:21:45
Thread-ID: 1466268
2 Beiträge
Tabelle in mehreren aufteilen
Mamo

Hallo,
ich rauche eure Hilfe;
Ich habe mehrere Tabellen, gleich aufgebaut, in einem Excelblatt. Nun möchte ich jede Tabelle in einem Blatt speichern. Das Blatt soll benannt werden nach der Bezeichnung der einzelnen Tabellen, was in Spalte B direkt über die Tabelle (Mathematik, usw) ste...
29.06.2016 12:31:18
Thread-ID: 1501556
11 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
6
4
17
2
1
3
1
10
2
18
27
13
9
5
2
4
9
3
2
2
2
5
5