Hallo Experten,
ich habe eine Excel Datei und möchte das aktuelle Arbeitsblatt als neue Excel-Datei abspeichern (und nur das aktuelle).
Was geht, aber nicht befreidigend ist, ist eine neue Mappe auf machen und das aktuelle Blatt einfügen. ;-(
Super wäre eine Makro-Lösung, die mir alle Arbeitsblätter in einzelene Mappen abspeichert (Das ist mein langfristiges Ziel.)
Danke
ich habe eine Excel Datei und möchte das aktuelle Arbeitsblatt
als neue Excel-Datei abspeichern (und nur das aktuelle).
Super wäre eine Makro-Lösung, die mir alle Arbeitsblätter in
einzelene Mappen abspeichert (Das ist mein langfristiges
Ziel.)
Hi Winterknight,
was möchtest du nun, ein Makro daß das gerade aktuelle oder das alle Tabellenblätter einzeln abspeichert?
Es wäre vereinfachend wenn du gleich sagen könntest unter welchen Namen da gespeichert werden soll. Blattname=Dateiname? Blattname+Datum=Dateiname? Oder , oder.
In welches Verzeichnis soll gespeichert werden?
Dieses Wissen macht es einfacher gleich den richtigen Code zu schreiben.
Gruß
Reinhard
Hi Reinhard,
Danke für Deine superfixe Antwort.
Ich will 3 Dinge auf einmal, geht das das? Ja mit Kinder-wer-weiß-was
1.)
Ich will (ohne Makro) das aktuelle Blatt speichern. Ganz einfach für Trottel wie mich.
2.)
Ich ein Marko, dass alle aktuellen blätter als einzelne Exceldatei abspeichert. Name = blattname (+Datum, aber das kriege ich selber hin-hoffe ich) .
3.)eine Fixe Antwort
Danke,
Kinderschokalde schmeckt eh nicht, dann lieber WWW
Gruß Winter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Winterknight,
1.)
Ich will (ohne Makro) das aktuelle Blatt speichern. Ganz
einfach für Trottel wie mich.
du könntest die Datei als txt oder csv speichern.
Ich ein Marko, dass alle aktuellen blätter als einzelne
Exceldatei abspeichert. Name = blattname (+Datum, aber das
kriege ich selber hin-hoffe ich) .
Option Explicit
'
Sub Makro1()
Dim ws As Worksheet, Pfad As String
Pfad = "C:\" 'Anpassen
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Pfad & ActiveSheet.Name & Format(Date, "yyyymmdd") & ".xls"
ActiveWorkbook.Close
Next ws
End Sub
3.)eine Fixe Antwort
Ich beeil mich ja, noch schneller geht aber für dich ins Geld 
))
Danke,
Kinderschokalde schmeckt eh nicht, dann lieber WWW
So 20mal im Jahr habe ich Anfälle, dann vernasche ich Kinderschokolade und diese kleinen Brezeln, mir schmeckt sie.
Was nu Kinderschokolade mit www zu tun hat habe ich nicht geschnallt, aber ich kann damit leben *gg*
Gruß
Reinhard
Hi Reinhard,
du könntest die Datei als txt oder csv speichern.
mm speichere ich das als excel 4 Tabellenblatt, aber da gehen einige Formeln verloren. Glücklich bin ich nicht.
Ein Marko, dass alle aktuellen blätter als einzelne
Exceldatei abspeichert. Name = blattnameOption Explicit
’
Sub Makro1()
Dim ws As Worksheet, Pfad As String
Pfad = „C:“ 'Anpassen
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Pfad & ActiveSheet.Name &
Format(Date, „yyyymmdd“) & „.xls“
ActiveWorkbook.Close
Next ws
End Sub
Super danke
3.)eine Fixe Antwort
Ich beeil mich ja, noch schneller geht aber für dich ins Geld
-)))
Super
eine Responstime von weniger als 2h ist phänomenal.
Da stinken sogar bezahl Hotlines dagegen ab.
Danke
Danke,
Kinderschokalde schmeckt eh nicht, dann lieber WWWSo 20mal im Jahr habe ich Anfälle, dann vernasche ich
Kinderschokolade und diese kleinen Brezeln, mir schmeckt sie.Was nu Kinderschokolade mit www zu tun hat habe ich nicht
geschnallt, aber ich kann damit leben *gg*
Wegen den Drei Dinge auf einmal, das geht nicht. (sie oben)
Doch mit Kinderschokolade
War zumindest der Werbesloagan früher, wie das jetzt heißt weiß ich nciht, wahrscheinlich: für die einen ist es scholokalde für die anderen das dickste Ei. Keine Ahnung.
Danke Dir noch mal Reinhard
Gruß
Reinhard
Hi winterknight,
du könntest die Datei als txt oder csv speichern.
mm speichere ich das als excel 4 Tabellenblatt, aber da gehen
einige Formeln verloren. Glücklich bin ich nicht.
Tja nu, vielleicht melden sich morgen Leute die sich in Excel auskennen. Mir fiel nur das ein. Und du sagtest ja „ohne Makros“.
Wieso eigentlich als Excel4 Arbeitsblatt? Welche Excelversion hast du denn? Bzw. die Empfänger der Datei, Excel 4.0?
Gruß
Reinhard
Grüezi Winter
1.)
Ich will (ohne Makro) das aktuelle Blatt speichern. Ganz
einfach für Trottel wie mich.
Hmm, reicht dir die ‚ganz einfache‘ Hand-Methode?
)Nun hast Du eine neue aktive Mappe mit nur diesem Tabellenblatt drin.
Die ursprüngliche Mappe ist ebenfalls noch geöffnet und das Tabellenblatt ist da auch noch drin.
–
Mit freundlichen Grüssen
Thomas Ramel
Hallo Winterknight,
du könntest die Datei als txt oder csv speichern.
mm speichere ich das als excel 4 Tabellenblatt, aber da gehen
einige Formeln verloren. Glücklich bin ich nicht.
.csv ist nicht gleich excel4.0 Tabellenblatt, achte auf die Dateiendung. Vielleicht mußt du noch weiter nach unten scrollen (Bei Dateityp). Da geht keine Formel verloren, keine Formatierung *glaub*
Allerdings, wenn du das aktuelle Tabellenblatt und nur das allein speichern willst und das ohne Makro, bleibt nur die Möglichkeit, die Thomas genannt hat oder du wirfst die anderen noch enthaltenen Tabellenblätter raus und speicherst dann.
Wieviel Tabellenblätter enthält die Datei eigentlich?
Enthalten die anderen Tabellenblätter Informationen?
Erstellst du diese Datei selbst? (dann könntest du unter Extras, Optionen, Allgemein die Anzahl der Arbeitsblätter für eine neue Datei auf 1 festsetzen)
Gruß
Marion
Grüezi Winter
infach für Trottel wie mich.
Hmm, reicht dir die ‚ganz einfache‘ Hand-Methode?
- Rechtsklick auf den Reiter des Tabellenblattes
- Verschieben/Kopieren
- Zur Mappe: ‚(Neue Arbeitsmappe)‘
- [x] Kopie erstellen (nicht vergessen
- [OK]
Nun hast Du eine neue aktive Mappe mit nur diesem
Tabellenblatt drin.
Die ursprüngliche Mappe ist ebenfalls noch geöffnet und das
Tabellenblatt ist da auch noch drin.Thomas Ramel
- MVP für MS-Excel -
Hi Thomas,
Danke
genau sowas wollte ich.
ist zwar §$&§$§/-umständlich, aber es geht.
Grüße
Hallo Winterknight,
.csv ist nicht gleich excel4.0 Tabellenblatt, achte auf die
Dateiendung. Vielleicht mußt du noch weiter nach unten
scrollen (Bei Dateityp). Da geht keine Formel verloren, keine
Formatierung *glaub*Allerdings, wenn du das aktuelle Tabellenblatt und nur das
allein speichern willst und das ohne Makro, bleibt nur die
Möglichkeit, die Thomas genannt hat oder du wirfst die anderen
noch enthaltenen Tabellenblätter raus und speicherst dann.Wieviel Tabellenblätter enthält die Datei eigentlich?
Enthalten die anderen Tabellenblätter Informationen?
Erstellst du diese Datei selbst? (dann könntest du unter
Extras, Optionen, Allgemein die Anzahl der Arbeitsblätter für
eine neue Datei auf 1 festsetzen)Gruß
Marion
Hi Marion,
Danke für Deine Antwort. Mit dem CSV hat Du natürlich komplett recht. Mit CSV geht alles verloren, aber wenn ich nach unten scrolle habe ich dann excel 4 Dateiblatt, aber selbst da gehen Formeln verloren.
Ich erstelle die Excel datei selbst, und habe dann mehrere (8±) Blätter. Jetzt will ich nur das eine Blatt versenden, die Mappe an sich aber intakt halten.
ich denke ich bleibe der Lösung von Thomas (Ohne Makro) oder der Makro Lösung.
Als alternative geht natürlich auch die Mappe kopieren, öffnen, alle Bläter bis auf das gewünschte löschen, speichern.
Aber Thomas Lösung ist eleganter.
(und jetzt habe ich doch meine 3 Dinge auf einmal erhalten:
*Freu*Danke Euch.