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