VBA: nach End Sub zurück zu End If

Set myTableRange = Worksheets("Aufträge").Range("B3:X999999") If Intersect(Target, myTableRange) Is Nothing Then GoTo SubSchluss 'Auftragsnummer abfragen und eintragen If auftragStatus.Value = "abbuchen" Then 'Ausgabenummer sichern, E2 If auftragAusgabenr.HasFormula Then {...} End If [E2] If auftragPreis.Value > "wird nicht angeboten" Then 'Lastschrift If auftragRechnungsstatus = "Lastschrift" Then {...} Else 'Rechnung If auftragRechnungsstatus = "Rechnung" Then {...} Else msg = ... GoTo SubSchluss End If End If Else msg = ... GoTo SubSchluss End If {...} End If [E1] 'Schützen und Sub beenden SubSchluss: Worksheets("Aufträge").Protect "a" Application.StatusBar = False Exit Sub End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Application.EnableEvents = False 'beendet ab hier Ereignisverfolgung 'oder eben Application.EnableEvents = True 'startet ab hier wieder die Ereignisverfolgung, was du unbedingt auch verwenden musst, denn wenn False 1x gestartet, dann reagiert dein Code bei z Bsp Sub Change nie wieder

Hallo MB,

wie Thorsten schon geschrieben hat, gehe ich auch von einem Event-Makro aus. Leider hast Du ausgerechnet die erste Zeile des Codes weggelassen. Weiterhin wird in dem Code an keiner Stelle zurück nach "weiter oben" gesprungen. Ganz im Gegenteil verwendest Du GoTo, um nach unten zu springen und allein dafür kommst Du in cie Coder-Hölle ;-) GoTo wird NICHT verwendet, das erzeugt Spaghetticode! (Außer zur echten Fehlerbehandlung, wenn mans braucht, weil das Exception Model von VBA das leider so vorsieht.)

Du hast eine If Then Else Struktur aufgebaut, die verschiedene Bedingungen prüft (wofür sie ja auch gedacht ist). Wird eine Bedingung nicht erfüllt, wird auch der Codeblock innerhalb von If - End If nicht ausgeführt. Das bedeutet, die ganzen GoTo kannst Du vermutlich ersatzlos löschen. Inklusive der unseeligen Sprungmarke. Zusätzlich stellt sich mir die Frage, wozu dient das Exit Sub eine Zeile vor dem End Sub? Löschen, dass macht null Sinn.

Wie ebenfalls von Thorsten angedeutet, stellt sich weiterhin die Frage, ob innerhalb Deiner ausgelassenen Code Teile, also den {...} Stellen, weitere Funktionen oder Subs aufgerufen werden, die das gezeigte Makro ihrerseits aufrufen. Wie gesagt, ansonsten springt da gar nix wieder nach oben in bereits abgearbeiteten Code. Oder es ist eben ein Change Ereignis, und wird jedesmal ausgeführt, wenn Du im abgefragten Zellenbereich etwas änderst. Wie Du Damit umgehen kannst, hat Thorsten Dir bereits gezeigt.

Übrigens solltest Du Dir dringend angewöhnen Code einzurücken. Dann brauchst Du auch keine Markierungen wie E1 oder E2. Man sieht dann nämlich automatisch, was wo stattfindet.


Sub test()

  Set myTableRange = Worksheets("Aufträge").Range("B3:X999999")
  If Intersect(Target, myTableRange) Is Nothing Then GoTo SubSchluss
    'Auftragsnummer abfragen und eintragen
    If auftragStatus.Value = "abbuchen" Then
      'Ausgabenummer sichern, E2
      If auftragAusgabenr.HasFormula Then
        '{...}
      End If '[E2]
      
      If auftragPreis.Value > "wird nicht angeboten" Then
        'Lastschrift
        If auftragRechnungsstatus = "Lastschrift" Then
          '{...}
        Else
          'Rechnung
          If auftragRechnungsstatus = "Rechnung" Then
          '{...}
          Else
            'msg = ...
            GoTo SubSchluss
          End If
        End If
      Else
      'msg = ...
      GoTo SubSchluss
    End If
    '{...}
  End If '[E1]
  
  'Schützen und Sub beenden
SubSchluss:
  Worksheets("Aufträge").Protect "a"
  Application.StatusBar = False
  
  Exit Sub
End Sub

Würde ich erstmal so abändern:


Sub test1()

  Set myTableRange = Worksheets("Aufträge").Range("B3:X999999")
  If Not Intersect(Target, myTableRange) Is Nothing Then
    'Auftragsnummer abfragen und eintragen
    If auftragStatus.Value = "abbuchen" Then
      'Ausgabenummer sichern, E2
      If auftragAusgabenr.HasFormula Then
        '{...}
      End If '[E2]
      
      If auftragPreis.Value > "wird nicht angeboten" Then
        'Lastschrift
        If auftragRechnungsstatus = "Lastschrift" Then
          '{...}
        Else
          'Rechnung
          If auftragRechnungsstatus = "Rechnung" Then
          '{...}
          Else
            'msg = ...
          End If
        End If
      Else
      'msg = ...
    End If
    '{...}
  End If '[E1]
  
  'Schützen und Sub beenden
  Worksheets("Aufträge").Protect "a"
  Application.StatusBar = False
End Sub

Viele Grüße,

Zwenn

Beliebteste Forumthreads (12 Monate)

VBA: nach End Sub zurück zu End If

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: nach End Sub zurück zu End If

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

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread