Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe in einzelne Dateien umwandeln

Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 08:00:39
Helmut
Hallo,
habe eine Arbeitsmappe mit weis Gott wie vielen Arbeitsblättern. Alle Arbeitsblätter haben eine Bezeichnung (zb. 4040 Oberndorf, 4060 Laakirchen, ...).
Nun möchte ich die ganzen Arbeitsblätter in einzelne Dateien umwandeln.
Das heißt: das Arbeitsblatt aus der Arbeitsmappe mit 4040 Oberndorf müßte zur Datei mit dem Namen 4040 Oberndorf werden usw.... So, dass ich nicht alle 100 oder mehr Arbeitsblätter einzeln in eine Datei schieben muss.
Die Formatierung muss beibehalten werden.
Hoffe auf Hilfe ;(
thx im voraus
Helmut

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 08:07:52
Matthias
Hallo Helmut,

Sub speichern()
Dim ws As Worksheet
Dim n As String
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

Gruß Matthias
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 08:33:10
Helmut
Hallo Matthias,
hat super funktioniert.
Einen Fehler hat das Ganze allerdings noch - war von mir aber auch nicht kommuniziert worden.
Geht es, dass die Dateien im gleichen Ordner abgespeichert werden, aus dem die Arbeitsmappe stammt?
thx
Helmu
AW: Arbeitsmappe in einzelne Dateien umwandeln
Nike
Hi,
versuchs mal so:

Sub zerfleddern()
Dim wks as worksheet
For each wks In activeworkbook.worksheets
wks.copy
activeworkbook.saveas (activeworkbook.path & "\" & wks.name & ".xls")
activeworkbook.close
Next
End Sub

Bye
Nike
Anzeige
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 08:34:25
Helmut
Hallo Nike,
hat super funktioniert.
Einen Fehler hat das Ganze allerdings noch - war von mir aber auch nicht kommuniziert worden.
Geht es, dass die Dateien im gleichen Ordner abgespeichert werden, aus dem die Arbeitsmappe stammt?
thx
Helmu
AW: Arbeitsmappe in einzelne Dateien umwandeln
Nike
Hi,
das sollte eigentlich dadurch sichergestellt werden,
das man
activeworkbook.path
verwendet hat, musst die Datei halt vorher einmal gespeichert haben,
damit sie auch weiss, wo sie ist ;-)
Bye
Nike
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 09:16:40
Helmut
Hallo Nike,
hab ich mir auch gedacht, nachdem ich deinen Code angeschaut habe.
Macht er aber nicht. Er speichert immer alles auf C: obwohl ich den Ordner auf der D: Platte habe. Naja - mein Comp hat eben ein gewisses Eigenleben. Ist auch a bisserl stur - so wie ich - und will sich eben auch nicht immer seine künstlerische Freiheit nehmen lassen :-)
Aber ist auch egal - brauch ich ja nur rüberschieben. Wenn du trotzdem noch einen Ansatz weißt wäre das super - sonst danke ich dir ganz herzlich - ist mir auch so schon eine große Hilfe.
lg
Helmut
Anzeige
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 09:58:04
Matthias
Hallo Nike,
das "ActiveWorkbook.Path" nach dem Copy-Befehl bezieht sich in deinem Code aber auf die frisch kopierte Mappe, und die hat noch keinen Pfad. Hab' es dann so gelöst:
https://www.herber.de/forum/messages/500464.html
Gruß Matthias
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 08:30:12
Helmut
Hallo Leute,
hat super funktioniert. Macros sehen anders aus, aber beide funktionieren.
Einen Fehler hat das Ganze allerdings noch - war von mir aber auch nicht kommuniziert worden.
Geht es, dass die Dateien im gleichen Ordner abgespeichert werden, aus dem die Arbeitsmappe stammt?
thx
Helmut
Anzeige
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 09:50:22
Matthias
Hallo Helmut,
du scheinst das Makro in irgendeiner anderen Datei anzulegen, nicht in der "zu zerfleddernden", oder?
so müsste es aber sicher klappen:
Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub
Gruß Matthias
AW: Arbeitsmappe in einzelne Dateien umwandeln
14.10.2004 10:07:58
Helmut
Hallo Matthias,
stimmt - ich lege die in einer anderen Arbeitsmappe ab.
Aber jetzt funktioniert das auch:))
Vielen Dank - ihr Götter des Excels ;-)
lg
Helmut
Anzeige

188 Forumthreads zu ähnlichen Themen

Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Anzeige
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Anzeige
Umwandeln einer Datei in Spaltendarstellung
Andre

Hallo zusammen,
ich habe eine Datei, die folgendermaßen aufgebaut ist:
Pro Zeile steht in Spalte B ein Name, in Spalte C ein weiterer Name und in Spalte D eine geografische Zuordnung. In den Spalten H bis S stehen die enthaltenen Elemente dieser Kombination der Spalten B-D. Jetzt möchte...
12.10.2010 14:06:40
Thread-ID: 1181954
2 Beiträge
Pivot-Tabelle in Einzeldateien gefiltert umwandeln
Thomas

Hallo liebe Forumsgemeinde,
ich benötige eure Hilfe bei folgendem Problem:
- Eine Pivot-Tabelle, nachstehend Master genannt, soll über die Ausprägungen eines definierten Seitenfelds (Filter-Seitenfeld) gefiltert und abgespeichert werden in eine separate Pivot-Datei, nachstehend Extrakt...
10.03.2011 16:26:59
Thread-ID: 1204839
2 Beiträge
Exceltabelle in PDF umwandeln auf auf Desktop sp.
Thomas

Liebe VBA Freunde!
Ich stehe nur vor Problemen :-( und ich hoffe ihr könnt mir helfen!
Wie kann ich eine bestehende Exceltabelle Bereich A1:Q20 mit Hilfe VBA in ein PDF.File umwandeln
und auf den Desktop speichern?
Im Internet habe ich darüber leider nichts gefunden.
Gibt es...
20.06.2012 20:46:01
Thread-ID: 1268201
8 Beiträge
Excel Tabelle in Datensatz umwandeln
Pollmann

Hallo,
ich möchte folgende Tabelle per VBA wieder in ein Datensatz verwandeln, um dann darauf eine Pivottabelle zu legen, damit ich die Attribute der Tabelle anders anordnen kann:
30. Jun 30.12.
A B A B
Corp 5,00 7,00 5,00 7,00
Sovereign 2,00 10,00...
13.12.2013 21:21:03
Thread-ID: 1342523
2 Beiträge
Textdateien in eine Textdatei umwandeln
Martin

Sehr geehrte Damen und Herren,
ich möchte eine beliebige Anzahl von Textdateien über VBA in eine Textdatei kopieren - dies geht über DOS problemlos, aber ich bekomme den Befehl über VBA nicht sauber gestartet.
Ich probiere folgenden Befehl auszuführen
Dim Filename As String
Dim...
10.06.2014 11:00:06
Thread-ID: 1365228
3 Beiträge
Anzeige

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
4
6
2
1
5
1
1
7
1
2
8
2
13
5
9
10
1
2
2
3
2
5
1
5
13