Makro zum speichern auf USB Stick

Forumthread: Makro zum speichern auf USB Stick
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro zum speichern auf USB Stick

05.12.2008 15:25:00

Kurt

Auf meinem alten Notebook ( XP) habe ich mit diesem Makro unter C: Datensicherung gespeichert.
Ich möchte aber jetzt mit dem neuen Notebook ( Vista ) auf den USB Stick unter E / Datensicherung speichern.
Nur es will einfach nicht klappen !!
Vielen Dank im Voraus


Sub sicherung ()
With This Workbook
.SaveCopyAs.Path&"E:\Datensicherung\"&Left(.Name, Len(.Name)-4)&_Format(Now,"DDMMYYYY_hhmm")&". _
xls"
End With
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro zum speichern auf USB Stick

05.12.2008 15:33:19

mumpel
Ergänzend...

05.12.2008 16:18:33

Jürgen
AW: Ergänzend...

05.12.2008 20:49:36

Kurt
AW: Ergänzend...

07.12.2008 22:55:08

Jürgen

AW: Makro zum speichern auf USB Stick

05.12.2008 15:33:19

mumpel

Hallo!
Hast Du Excel Schreibrechte auf den USB-Port gegeben? In Vista soll das nicht mehr standardmäßig möglich sein. Kannst Du denn normal (ohne Makros) auf Laufwerk E schreiben? Hat der USB-Stick wirklich Laufwerk E? Ist der Laufwerksbuchstabe für den USB-Stick fest oder automatisch? Fragen über Fragen. Bitte arbeite mal alle Fragen ab.
Gruß, René

Ergänzend...

05.12.2008 16:18:33

Jürgen

Hallo Kurt,
in Ergänzung zu den bereits von René gestellten Fragen noch die nach der Fehlermeldung bzw. einer Beschreibung, was nicht klappt.
Sollte der von Dir eingestellte Code 100% der verwendete sein: zwischen .SaveCopyAs und .Path muss ein Leerzeichen stehen!
Herzlichen Gruß
Jürgen

AW: Ergänzend...

05.12.2008 20:49:36

Kurt

Vielen Dank erst einmal.
Es kommt immer die Fehlermeldung - Fehler beim Kompilieren -
Wenn ich ein Makro aufnehme und laufen lasse geht es,
Nur wird halt der Name nicht geändert und die Excel Datei wird nach nach dem quittieren überschrieben.
Ich brauche aber immer auch die Alte Datei !!


Sub Makro1()
' Makro1 Makro
' Makro am 02.12.2008 von KJDg aufgezeichnet
ChDir "H:\Datensicherung"
ActiveWorkbook.SaveAs Filename:="H:\Datensicherung\makro.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("A1").Select
End Sub

AW: Ergänzend...

07.12.2008 22:55:08

Jürgen

Hallo Kurt,
die Fehlermeldung "Fehler beim Kompilieren" nennt auch einen Grund - der wäre für die Fehleranalyse schon hilfreich.
Ein solcher Fehler wird auch auftreten, wenn zwischen ".SaveCopyAs" und ".Path" kein Leerzeichen steht hast Du das geprüft?
Gruß, Jürgen