Frage zu Errorhandler
07.01.2009 14:54:08
klausk
das Makro speichert die Datei zuerst auf einem USB Stick (der immer stecken sollte :)) und dann auf der Festplatte. Sollte der Stick einmal nicht stecken, soll als Errorhandler eine Fehlermeldung erscheinen und auf das Einstecken des Sticks hinweisen. Trotz vieler Versuche komme ich da nicht weiter und bitte um Hilfe. Die Msgbox erscheint immer.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
On Error GoTo errorhandler
Rem speichert auf usb stick
ChDir "G:\"
ActiveWorkbook.SaveAs Filename:="G:\Mappe1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Rem speichert auf hd
ChDir "C:\Users\klaus\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\klaus\Desktop\Mappe1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
errorhandler: MsgBox ("Bitte USB Stick prüfen !")
End Sub
Vielen Dank und einen schönen Tag
Klaus