Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1176to1180
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
Inhaltsverzeichnis

Maker "Speichern unter"

Maker "Speichern unter"
Rolf
Hallo
Eine Frage:
Ich benutze 2 Festplatten, eine als Sicherung.
Ich möchte, das die Datei mit einem Makro auf C: und F: gespeichert wird. Und zwar jede Datei, die bereits einen Namen hat.
Bisher mache ich das so:
Sub Speicher_auf_C_und_F()
' Speicher_auf_C_unf_F Makro
ChDir "C:\Text\Excel\Überweisung"
ActiveWorkbook.SaveAs Filename:="C:\Text\Excel\Überweisung\STEUER.XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "F:\Text\Excel\Überweisung"
ActiveWorkbook.SaveAs Filename:="F:\Text\Excel\Überweisung\STEUER.XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Aber das geht nur bei der Datei"STEUER.XLS". Es soll aber universal funktionieren.
Gruss Rolf K.

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

Betreff
Benutzer
Anzeige
AW: Maker "Speichern unter"
14.09.2010 18:27:10
strodti
Hallo Rolf,
müsste eigentlich mit ThisWorkbook.Name funktionieren.
also "C:\Text\Excel\Überweisung\" & ThisWorkbook.Name
Gruß
Tobias
AW: Makro "Speichern unter"
15.09.2010 17:22:14
Rolf
Hallo strodti
Funktioniert nicht ganz. Fehlermeldung.
Neues Makro:
Sub Makro1()
ActiveWorkbook.Save
ChDir "F:\Text\Excel\Überweisung"
ActiveWorkbook.Save
End Sub
In der ersten Zeile speichert er auf C:
Dann soll er auf F: wechseln, und zwar in das gleiche Verzeichnis!(ist vorhanden).
Wie läuft das unversal, mit jedem Verzeichnis.
Hinweis: Laufwerk F: ist ein Spiegel von C:.
Gruss Rolf
Anzeige
AW: Makro "Speichern unter"
16.09.2010 08:21:03
strodti
Hi Rolf,
ich habe Excel Version 11.0 und mein Code-Vorschlag funktioniert.
Hier noch mal der ganze Code (vielleicht hast Du ja einen Schreibfehler):
Sub Speicher_auf_C_und_F()
ChDir "C:\Text\Excel\Überweisung"
ActiveWorkbook.SaveAs Filename:="C:\Text\Excel\Überweisung\" & ThisWorkbook.Name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "F:\Text\Excel\Überweisung"
ActiveWorkbook.SaveAs Filename:="F:\Text\Excel\Überweisung\" & ThisWorkbook.Name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Wenns nicht funktioniert, kann ich Dir leider nicht groß weiterhelfen, da ich selbst mich in VBA erst einarbeite und eigentlich auf meine Antwort recht stolz bin, da es (zumindest bei mir) läuft.
Bzgl. des anderen Codes von Dir habe ich es auch versucht und recherchiert, aber bisher ohne Lösung.
Gruß
Tobias
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige