Eigenes Fehlerhandling
17.11.2004 10:59:11
Talcom
wie schaffe ich es im Falle einer bestimmten Err.Number einen eigenen Text auszugeben, sonst den Standardtext? Bislang schaffe ich es nur auf einen Werte zu Reagieren, aber er gibt mir in allen anderen Fällen dann gar keine Meldunge mehr aus. Was müßte ich im u.a. Beispiel im Elsezweig angeben? Oder gibt es eine andere Lösung?
Danke
Gruß Talcom
On Error Resume Next
ActiveSheet.Unprotect
If Err.Number 0 Then
Call FehlerHandling(Err.Number)
End If
...
Sub FehlerHandling(RC As String)
Select Case RC
Case "91"
MsgBox ("Kein geöffnetes Datenblatt zum Entsperren vorhanden")
Case Else
End Select
End Sub
Anzeige