Microsoft Office Tutorials and References
In Depth Information
4.2.2 Abfangen mit On Error
Abbildung 4.5
Falscher Datentyp
Betätigen Sie den Button Debuggen, dann wird die Zeile y =
Range("A2").Value gelb markiert. In dieser Zeile sollte der Inhalt der
Zelle (der Text abc ) der Integer -Variablen y zugewiesen werden. Dies
erwies sich als unverträglich.
Abbildung 4.6
Programmzeile mit Zuweisung
4.2.2
Abfangen mit On Error
Die Prozedur wird nun zum Abfangen des Laufzeitfehlers wie folgt ver-
bessert:
On Error
Sub OnErrorAnweisung()
Dim x As Integer, y As Integer, z As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
On Error GoTo Fehler
x = Range("A1").Value
y = Range("A2").Value
z=x/y
Range("A3").Value = z
Exit Sub
Fehler:
MsgBox Err.Description
Resume Next
End Sub
Search JabSto ::




Custom Search