860to864: On Error Goto ...

Hallo zusammen,
habe ein Problem mit einer Fehlerbehandlungsroutine.
Bei u.s. Code bekomme ich "Laufzeitfehler 91", "Objektvariable oder With-Blockvariable nicht festgelegt".
Die erste Bedingung wird nicht erfüllt, er springt auch direkt zu Ohne00:
Die zweite Bedingung wird auch nicht erfüllt, allerdings springt er nicht zu Sprungmarke Ohne01:,
sondern wirft die o.g. Fehlermeldung aus.
Muß ich die Fehlerbehandlung zwischendrin zurücksetzen und wenn ja wie und wann?
Vielen Dank schon mal im Voraus!
Gruß
Philipp
On Error GoTo Ohne00:
Cells.Find(What:="Verkehrsgruppe: 00").Activate
ActiveCell.ClearContents
Ohne00:
On Error GoTo Ohne01:
Cells.Find(What:="Verkehrsgruppe: 01").Activate
ActiveCell.ClearContents
Ohne01:
On Error GoTo Ohne03:
Cells.Find(What:="Verkehrsgruppe: 03").Activate
ActiveCell.ClearContents
Ohne03:

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Zelle As Range Set Zelle = Cells.Find(What:="Verkehrsgruppe: 00") If Not Zelle Is Nothing Then Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich End If Set Zelle = Cells.Find(What:="Verkehrsgruppe: 01") If Not Zelle Is Nothing Then Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich End If Set Zelle = Cells.Find(What:="Verkehrsgruppe: 03") If Not Zelle Is Nothing Then Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich End If

Hallo Philipp,
ohne den gesamten Code zu kennen ist das natürlich ein Ratespiel. Ich denke aber, dass ich mit meiner Vermutung richtig liege.
Wenn die erste Verkehrsgruppe nicht gefunden wird, springt das Makro in die entsprechende Fehlerbehandlungsroutine. Da in diesem Fall der nachfolgende Löschbefehl, bzw. die nachfolgenden Löschbefehle nicht ausgeführt werden darf/dürfen, springst du mit einem weiteren GoTo-Befehl wieder aus der Fehlerbehandlungsroutine zurück in's normale Programm. D.h. du hast für den Rücksprung eine weitere Sprungmarke gesetzt. Genau hier liegt aber der Knackpunkt. Du kannst eine Fehlerbehandlungsroutine nur mit einem Resume/Resume Next-Befehl beenden, was bei dir eben nicht in Frage kommt. Wenn du dagegen mit einem GoTo-Befehl auf eine Rücksprungmarke weiterspringst, wird nicht aus dem Fehlerbehandlungsmodus wieder zurück in den Normalmodus geschaltet. Excel denkt also, du bist immer noch in der Fehlerbehandlung. Während einer Fehlerbehandlung ist aber die On Error-Anweisung nicht aktiv. Daher springt dein Makro bei den folgenden Anweisungen nicht mehr in die vorgesehene Fehlerbehandlungsroutine.
Wenn du dein Makro also unbedingt über mehrere Fehlerbehandlungsroutinen realisieren möchtest, dann musst du jede einzelne Fehlerbehandlungsroutine mit einer Resume Next-Anweisung beenden und die nachfolgenden Löschbefehle anders abfangen. Im Prinzip gibt es allerdings keinen Grund, nicht die Variante von Franz zu verwenden. Deine Ansicht, dass man dort nicht auch mehrere Löschbefehle oder Löschbefehle, die sich auf mehr als eine Zelle beziehen, einbauen kann, teile ich nicht. Meiner Ansicht nach ist die Lösung von Franz ideal und müsste nur auf dein spezifisches Problem angepasst werden.
Gruß Ingolf

Dim Zelle As Range Set Zelle = Cells.Find(What:="Verkehrsgruppe: 00") If Zelle Is Nothing Then GoTo Ohne00: Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich '.. und der weitere Code Ohne00: Set Zelle = Cells.Find(What:="Verkehrsgruppe: 01") If Zelle Is Nothing Then GoTo Ohne01 Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich '.. und der weitere Code Ohne01: Set Zelle = Cells.Find(What:="Verkehrsgruppe: 03") If Zelle Is Nothing Then GoTo Ohne03 Zelle.ClearContents Zelle.Activate 'Zeile nur einfügen wenn unbedingt erforderlich '.. und der weitere Code Ohne03:

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

860to864: On Error Goto ...

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread