Fehlermeldung abfangen
17.01.2005 18:28:19
Jens
Habe doch noch eine Frage.
Und zwar fange ich mit dem folgenden Code die Fehlermeldung ab, wenn z.b. das Programm nicht vorhanden ist. Ich unterscheide da nur zwischen reinen Programmstart und Programmstart mit einer Datei.
Reiner Programmstart lautet:
Sub AlleUser_E_Mail_Programm_öffnen()
Dim stAppName As String
stAppName = "C:\Programme\Microsoft Outlook 2003\Office11\OUTLOOK.EXE"
On Error Resume Next
Call Shell(stAppName, 3)
If Err.Number <> 0 Then
Initialisierungsfehler.Show
End If
End Sub
Programmstart mit Datei lautet:
Sub Vorlage_Meldung_öffnen()
Dim stAppName As String
stAppName = "C:\Programme\Microsoft Office\Office\winword.exe G:\Vorlagen\Meldungen\Vorl_Meldung.doc"
On Error Resume Next
Call Shell(stAppName, 3)
If Err.Number <> 0 Then
Initialisierungsfehler.Show
End If
End Sub
Beim zweiten Code wird allerdings auch nur die UserForm Initialisierungsfehler ausgegeben. Also wenn das Programm nicht da ist.
Ist aber die Die Datei nicht vorhanden, bekomme ich nur die ganz normale Excelfehlermeldung angezeigt: Datei nicht vorhanden, überprüfen sie den Pfad usw..
Wie kann ich es aber erreichen dass in dem zweiten Code meine Userform Initialisierungsfehler in beiden Fällen angezeigt wird. Also wenn entweder das Programm nicht da ist oder die Datei fehlt.
Vielen Dank für Eure Hilfe.
Gruß Jens