Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei speichern

Datei speichern
15.09.2006 13:15:06
Lueckii
Tach!
Wie kann man ein aktuelles Workbook unter einem anderen Namen als Kopie speichern. Beim Debuggen wird hier zwar kein Fehler angezeigt, aber das File wird auch nicht in dem angegebenen Pfad gespeichert.
Dim DateiName As String
Dim Pfad As String
Dim Jahr
Pfad = ThisWorkbook.path
DateiName = ThisWorkbook.Name
Jahr = Worksheets("Navigation").Range("I2").Value
MkDir Pfad & "\" & Jahr
'Das Workbook in dem vorher angelegten Pfad speichern.
ThisWorkbook.SaveCopyAs Pfad & "\" & Jahr & "\" & Jahr & DateiName

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern
15.09.2006 13:22:42
Lueckii
OK. Hat sich schon erledigt
AW: Datei speichern
15.09.2006 13:43:11
fcs
Hallo Luecki,
wenn das Makro nicht in der Excel-Datei gespeichert ist, von der du eine Kopie anlegen möchtest, dann funktioniert dein Makro nicht. Durch Verwendung von "ThisWorkbook" wird eine Kopie von der Datei versucht zu speichern, in der das Makro gespeichert ist.
Verwende in dem Fall "ActiveWorkbook" statt "ThisWorkbook".
Das Makro als solches funktioniert. Allerdings nur einmal für jedes Jahr. Ggf. muss du noch eine Abfrage einbauen, ob das Unterverzeichnis mit dem Jahr schon existiert, wenn mehrere Dateien in das Jahresverzeichnis kopiert werden sollen.
Gruß
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige