Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Arbeitsblätter als einzelne Mappen speichern

Alle Arbeitsblätter als einzelne Mappen speichern
Roberto
Hallo zusammen,
ich würde gerne alle Arbeitsblätter einer Arbeitsmappe als einzelne Arbeitsmappen bzw. xls Dateien speichern.
Name der neuen Arbeitsmappe = Arbeitsblattname. Der Pfad soll das aktuelle Verzeichnis sein.
Vielen Dank im voraus für Eure Hilfe :-)
Gruß
Roberto

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

Betreff
Benutzer
Anzeige
AW: Alle Arbeitsblätter als einzelne Mappen speichern
Boris
Hi Roberto,
als Beispiel - ohne Fehlerbehandlung etc... (der Dateiname für jedes Blatt steht jeweis in A1 - also z.B. 'Testmappe1'):
Option Explicit

Sub speichern()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
Ws.Copy
ActiveWorkbook.SaveAs Range("A1")
ActiveWorkbook.Close
Next Ws
Application.ScreenUpdating = True
End Sub

Grüße Boris
AW: Alle Arbeitsblätter als einzelne Mappen speichern
Roberto
Hallo Boris,
Deine Lösung hat mir gut gefallen, aber die von Matthias konnte ich besser verwenden.
trotzdem vielen Dank ;-)
Gruß
Roberto
Anzeige
AW: Alle Arbeitsblätter als einzelne Mappen speichern
14.04.2004 00:00:50
Matthias
Hallo Roberto,
Boris' einziger Fehler: Die Dateinamen ermittelte er aus dem Wert der Zelle A1.
Das mit dem For Each finde ich bei Boris sogar besser als mein For To :-)
Aber letztlich war mein Code deinen Wünschen eher entsprechend. Weges des Dateinamens. Aber, Boris: ich hab mir ja auch 14 Sekunden mehr Zeit gelassen.
;-)
Grüße,
Matthias
AW: Alle Arbeitsblätter als einzelne Mappen speichern
Matthias
Hallo Roberto,

Sub BlätterEinzelnSpeichern()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" + ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
Next i
Application.ScreenUpdating = True
End Sub

Gruß Matthias
Anzeige
AW: Alle Arbeitsblätter als einzelne Mappen speichern
13.04.2004 23:52:30
Roberto
Danke Matthias,
das war genau richtig :-)
Gruß
Roberto

304 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
Anzeige
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 Beiträge
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 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
2
2
8
6
4
2
2
3
10
13
6
1
3
6
2
12
1
5
6
2
5
4
1
1
2