Fehlerbehandlung in vba funktioniert nicht
29.04.2009 11:56:50
Henning
bei mir funktioniert die vba-Fehlerbehandlung nicht wie sie soll.
Ich rufe Hyperlinks auf: Zunächst die Online-Version. Falls der Rechner nicht online ist oder keine Verbindung hergestellt werden kann, soll per Fehlerbehandlung im zweiten Schritt die lokale offline-Version abgefragt werden. Ist eine von den Versionen (online oder offline) vorhanden, funktioniert der Code.
Probleme bei der Fehlerbehandlung gibt es, wenn keine der beiden Versionen bereitgestellt sind.
Das Programm spring noch korrekt hinter "Err_Offline", bei der anschließenden Abfrage der _ offline Version kommt die vba-Fehlermeldung:
"Laufzeitfehler '2147221014 (800401ea)': Die angegebene Datei konnte nicht geöffnet werden."
Das Programm ignoriert völlig die Fehlersprunganweisung "On Error GoTo Err_Exit"
Dim Z As Integer
Dim R As Range
Set R = [rIntranet]
On Error GoTo Err_Offline
Z = Application.WorksheetFunction.Match(strLink, [rIntranet_Links], 0)
'online-Version
R.Offset(Z, 1).Hyperlinks(1).Follow NewWindow:=True
Exit Sub
Err_Offline:
'Prüfung Offline-Version
On Error GoTo Err_Exit
R.Offset(Z, 2).Hyperlinks(1).Follow NewWindow:=True
Exit Sub
Err_Exit:
MsgBox "Es besteht keine Verbindung zum Intranet bzw. AD-Offline ist nicht installiert.", vbInformation + vbOKOnly, "Hinweis"
Exit Sub
End Sub
Habt Ihr eine Idee woran das liegen könnte?
Vielen Dank!
Henning