Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Frage zum tipp 812
Autor: guenni255
Datum: 28.01.21 12:29
Hallo Forum In meinem Kleine Programm das ich zur Zeit schreiben sollen natürlich auch Fehlerroutinen ihren Platz haben. da ich mich damit aber überhaupt noch nicht auskenne habe ich mit diesem Tipp begonnen darüber nachzulesen. Doch schon gibt es Probleme. Die Error Anweisung wird überhaupt nicht erkannt. Ich habe zum Test eine neues Projekt geöffnet und zur besseren Verfolgung um 3 Commandobutton erweitert. Ergebnis ist jedesmal die Anzeige des Fehler´s "Division durch 0" in der Zeile x=5/0. Frage: Müssen noch Verweise in dem Projekt gesetzt werden oder was läuft hier falsch? Mein Code: Option Explicit Private x As Double Private Sub Command1_Click() Call fehler1 End Sub Private Sub Command2_Click() Call fehler2 End Sub Private Sub Command3_Click() Call fehler3 End Sub Sub fehler1() ' Bei Fehler nach err_fehler1 verzweigen On Error GoTo err_fehler1 x = 5 / 0 Exit Sub err_fehler1: MsgBox "Test 1" End Sub Sub fehler2() ' Fehler ignorieren On Error Resume Next x = 5 / 0 x = 1 / 2 MsgBox x End Sub Sub fehler3() ' Fehler ignorieren On Error Resume Next x = 5 / 0 MsgBox "test3" ' Fehlerbahendlung ausschalten! On Error GoTo 0 x = 1 / 0 MsgBox "test 4" End Sub Vielen Dank für euer Interesse und evtl. Lösungen Gruß Günni

Re: Frage zum tipp 812
Autor: minimalist
Datum: 28.01.21 18:15
Bei mir läuft das Program genauso wie du es programmiert hast. Allerdings wolltest due in 4 die Fehlerbehandlung ausschalten so musst du es nach dem fehler generierenden statement setzen so x = 1 / 0 On Error GoTo 0 MsgBox "test 4"

Re: Frage zum tipp 812
Autor: guenni255
Datum: 28.01.21 23:25
hallo minimalist Das verstehe ich nicht ganz. das es bei dir richtig laufen soll meine erwarteten Meldungen wären bei Fehler 1. eine MSGBOX mit test 1 (Sprung direkt zur Fehlermarke) 2. eine MSGBOX mit 0,5 (überspringen der Fehlerzeile und weiterführen des Programms) 3. eine MSGBOX mit test3 (anschließend die Laufzeit Fehlermeldung "Division durch null") doch nichts von dem erscheint bei mir. immer nur die Laufzeit Fehlermeldung verursacht durch X=5/0. müssen irgendwelche Verweise im Projekt gesetzt werden??? Aber du hast alle erwarteten MSGBOXEN richtig angezeigt bekommen?? Gruß Günni

Re: Frage zum tipp 812
Autor: guenni255
Datum: 29.01.21 00:07
Hallo nochmal Hab den Fehler gefunden. im VB Menü unter Extras und Optionen Gibt es den Punkt "Unterbrechen bei Fehlern" Hier war "bei jedem Fehler" ausgewählt.Nach umschalten auf "bei nicht verarbeiten Fehlern" funktioniert alles. Gruß günni

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen