Code Snippet "VBA Excel"

Error-Behandlung ist lokal

Der Code zeigt, dass "On Error Resume Next" nur innerhalb der aufgerufenen Funktion gilt, in der aufrufenden Funktion gilt ..goto..

Sub aufgerufen()
  On Error Resume Next
  x = 12 / 0
  Debug.Print "Nach Fehler"
End Sub

Sub aufruf()
  On Error GoTo x
  
  Call aufgerufen
  Debug.Print "nach aufruf"
  x = 12 / 0
  'Wenn folgender Text ausgedruckt wird, dann gilt ".. Resume Next"
  Debug.Print "nach 2. Fehler"
  Exit Sub
  
x:
  Debug.Print "in Fehlerbehandlung"
End Sub