Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SaveAs - Problem

Forumthread: SaveAs - Problem

SaveAs - Problem
20.07.2003 13:01:56
David
Hallo Excel-Cracks,
wie gebe ich in der SaveAs - Methode das gewünschte (neue) Dateiformat an?
Es soll ein Excel File werden.
Meine Versuche mit "*.xls",".xls",*.xl*, etc waren vergebens...
Das Makro soll auf Excel 97 und 2000 laufen.

Sub Test()
datum = Date
ActiveSheet.Copy
Cells.Copy
Cells.Cells.PasteSpecial Paste:=xlValues
ActiveSheet.Name = "meinName" & datum
ActiveWorkbook.SaveAs ("Dateiname" & datum)
End Sub

Und noch eine kleine Zusatzfrage:
Wenn ich mehrere Blätter in einer neuen Datei speichern möchte, kann ich nicht gleich das ganze Workbook mit Copy und Paste in eine neue Mappe verschieben und danach ActiveWorkbook.SaveAs ... anwenden ?
Allen Antwortern schon einmal vielen Dank im voraus !
Viele Grüße
David
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Noch ein Tipp ...
20.07.2003 15:01:19
Jens
Hallo
Wenn du genau festlegen willst das die Datei auch bei Excel97 noch geht must du das Fileformat mit angeben.

Sub Test()
datum = cstr(Date)'in Textumwandel
ActiveSheet.Copy
Cells.Copy
Cells.Cells.PasteSpecial Paste:=xlValues
ActiveSheet.Name = "meinName" & datum
ActiveWorkbook.SaveAs Filename:="Dateiname" & datum, FileFormat:=xlExcel9795
End Sub

Nur noch als zusatz.
Gruß Jens

Anzeige
AW: SaveAs - Problem
20.07.2003 13:26:08
Ivan
hi David
kanst du damit was anfangen??
Dim fileSaveName$
ActiveWorkbook.SaveAs fileSaveName
gruss
ivan

Super! Danke
20.07.2003 14:48:10
David
Vielen Dank, ivan!
Klappt hervorragend.
Damit wäre auch klar, wo der Laufzeitfehler herkam :)
mfg David

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige