VBA Abfrage on error - nur 1 mal OK

Sub Regal_anlegen() Dim Antwort Dim Neu_Sheet_Name As String erneute_Eingabe: Neu_Sheet_Name = InputBox("Bitte Namen für neues Regal eingeben !", "Eingabe") Sheets("Regal_leer").Copy After:=Worksheets("Daten") On Error GoTo fehler ActiveSheet.Name = Neu_Sheet_Name MsgBox ("Regal erfolgreich angelegt!"), vbInformation, "Info" Exit Sub fehler: On Error GoTo 0 Antwort = MsgBox("Name-> " & Neu_Sheet_Name & "

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Regal_anlegen() Dim Antwort Dim Neu_Sheet_Name As String, wks As Worksheet Do Set wks = Nothing Neu_Sheet_Name = InputBox("Bitte Namen für neues Regal eingeben !", "Eingabe") On Error Resume Next Set wks = Worksheets(Neu_Sheet_Name) On Error GoTo 0 If Not wks Is Nothing Then Antwort = MsgBox("Name-> " & Neu_Sheet_Name & _ "

Hallo chris,
ich versuch es mal mit einer Analogie:
Du hast in deinem Wohnzimmer einen Wasserhahn ohne ein Waschbecken darunter. Wenn du den Hahn kurz aufdrehst wird der Boden nass = Error. Jetzt hältst du ein Schnapsglas darunter und drehst wieder kurz auf. Das Glas ist voll aber der Boden bleibt trocken = On Error Goto Schnapsglas. Jetzt stellst du das Glas auf deinen Wohnzimmertisch = On Error Goto 0. Du nimmst das Glas wieder hältst es wieder unter den Wasserhahn und drehst ihn kurz auf. Du hast also die Fehlerbehandlung On Error Goto Schnapsglas eingeschaltet, da das Glas aber immer noch voll ist wird der Boden trotz Fehlerbehandlung nass.
Jetzt klarer warum beim 2. mal die Fehlerbehandlung versagt?
Abhilfe schafft nur das Glas auszuleeren. Das geschieht mit der Anweisung Resume (Next / Sprungmarke) oder End oder Exit / End (Sub / Function / Property).
Etwas komplizierter wird es wenn die Routine aus einer anderen Routine aufgerufen wird. Da wird bei einer fehlenden Fehlerbehandlung der Fehler in die aufrufende Prozedur durch geschleift. Und zwar so lange bis entweder eine nicht belegte Fehlerbehandlung gefunden wird, oder die letzte Routine mit End / End (Sub / Function / Property) abgeschlossen wird. Daraus eine Analogie zu basteln habe ich aber heute keine Lust mehr.
So funktioniert eine einfache Fehlerbehandlung mit Resume (Sprungmarke):

Sub test()

    Dim x

    On Error GoTo fehler

    rauf:

    x = 100 / 0

    Exit Sub

    fehler:

    Resume rauf

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

VBA Abfrage on error - nur 1 mal OK

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

165 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Abfrage on error - nur 1 mal OK

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

165 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread