Wenn ich beim öffnen eines Programmes aus Excel heraus eine Fehlermeldung bekomme, Laufzeitfehler 53 oder 76, habe ich diese mit einer Einheitsfehlermeldung abgefangen. Dies mittels einer UserForm. (Initialisierungsfehler.Show)
Ich benutze dafür folgenden Code:
Sub Zeiteingabe()
Dim stAppName As String
stAppName = "C:\Programme\Microsoft Office\Office\excel.exe G:\Vorlagen\Vorl_ Zeiteingabe.xls"
On Error Resume Next
Call Shell(stAppName, 3)
If Err.Number <> 0 Then
Initialisierungsfehler.Show
End If
End Sub
Ich öffne also erst Excel und dann die Datei.
Möchte ich die Datei direkt in Excel öffnen, bekomme ich bei fehlerhaften Pfad zwar auch einen Laufzeitfehler angezeigt mit Nummer 1004, aber ich bekomme diese nicht wieder mit meiner eigenen UserForm abgefangen.
Hier der andere Code:
Sub Zeiteingabe()
ChDir " G:\Vorlagen"
Workbooks.Open FileName:= _
" G:\Vorlagen\Vorl_ Zeiteingabe.xls"
End Sub
Wie muss ich hier den Laufzeitfehler abfangen.
Danke für jede Hilfe
Gruß Jens