Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1036to1040
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

Frage zu Errorhandler

Frage zu Errorhandler
07.01.2009 14:54:08
klausk
Guten Tag,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Frage zu Errorhandler
07.01.2009 15:04:00
Hajo_Zi
Hallo Klaus,
vielleicht solltest Du vor der Zeile Exit Sub machen. Da Du kein Prüfung auf Fehler an dieser Stelle machst.

Vielen Dank Hajo, mach ich gleich owT
07.01.2009 15:06:54
klausk
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige