On Error wird ignoriert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Pläne_aktualisieren() Application.ScreenUpdating = False Application.EnableEvents = False Dim Abk As Variant, URL As Variant Spalte_Abkürzung = Worksheets("Master Datei").Rows(1).Find("Abkürzung", lookAT:=xlWhole).Column Spalte_Plan = Worksheets("Master Datei").Rows(1).Find("Plan I-B", lookAT:=xlWhole).Column Worksheets("Master Datei").Activate intLastRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row For Start = 1 To intLastRow Objekt = Worksheets("Tabelle1").Cells(Start, 1).Value Set rng = Sheets("Master Datei").Range("A:A").Find(Objekt, lookAT:=xlWhole) If Not rng Is Nothing Then Zeile = rng.Row Abk = Sheets("Master Datei").Cells(Zeile, Spalte_Abkürzung).Value On Error GoTo weiter ' On Error Resume Next Sheets("Master Datei").Shapes("Plan" & Abk).Select '---Hyperlink zuteilen URL = Sheets("Tabelle1").Cells(Start, 3).Value ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=URL GoTo weiter1 weiter: '---wenn neu ActiveSheet.Shapes("Plan").Copy Cells(Zeile, Spalte_Plan).Select ActiveSheet.Paste With Selection.ShapeRange .Name = "Plan" & Abk End With ActiveSheet.Shapes("Plan" & Abk).Select '---Hyperlink zuteilen URL = Sheets("Tabelle1").Cells(Start, 3).Value ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=URL End If weiter1: Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Wenn "rng" Nothing ist, dann ist die IF-Bedingung nicht erfüllt und es geht direkt zum Next. Wo soll da der Fehler entstehen? Es ist natürlich richtig, dass ein Teil des Codes nicht durch das "On Error GoTo weiter" abgedeckt ist, da das sich nach dem Sprung zu weiter wieder auf "GoTo 0" zurücksetzt, nur ist der Code eigentlich unkritisch.
Wo genau passiert denn der Fehler? Kann ja eigentlich nur in den zwei Zeilen sein:
Objekt = Worksheets("Tabelle1").Cells(Start, 1).Value
Set rng = Sheets("Master Datei").Range("A:A").Find(Objekt, lookAT:=xlWhole)
Wobei ich nicht wüsste, was da falsch laufen soll.
Ich habe Deinen Code mal überarbeitet und die Sprungmarken rausgeworfen, die sind hier unnötig. Mangels Originaltabelle kann ich es nicht testen, hoffe mal, dass ich keinen Fehler eingebaut habe.

Sub Pläne_aktualisieren()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Abk As Variant, URL As Variant
Spalte_Abkürzung = Worksheets("Master Datei").Rows(1).Find("Abkürzung", lookat:=xlWhole).Column
Spalte_Plan = Worksheets("Master Datei").Rows(1).Find("Plan  I-B", lookat:=xlWhole).Column
Worksheets("Master Datei").Activate
intLastRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For Start = 1 To intLastRow
Objekt = Worksheets("Tabelle1").Cells(Start, 1).Value
Set rng = Sheets("Master Datei").Columns(1).Find(Objekt, lookat:=xlWhole)
If Not rng Is Nothing Then
Zeile = rng.Row
Abk = Sheets("Master Datei").Cells(Zeile, Spalte_Abkürzung).Value
URL = Sheets("Tabelle1").Cells(Start, 3).Value
On Error Resume Next
'---Hyperlink zuteilen
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Master Datei").Shapes("Plan" & _
Abk).ShapeRange.Item(1), Address:=URL
' bei Fehler neu Erstellen
If Err.Number  0 Then
ActiveSheet.Shapes("Plan").Copy
Cells(Zeile, Spalte_Plan).Select
ActiveSheet.Paste
With Selection.ShapeRange
.Name = "Plan" & Abk
ActiveSheet.Hyperlinks.Add Anchor:=.Item(1), Address:=URL
End With
End If
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Gruß, Jogy

Sub Pläne_aktualisieren() Application.ScreenUpdating = False Application.EnableEvents = False Dim Abk As Variant, URL As Variant Spalte_Abkürzung = Worksheets("Master Datei").Rows(1).Find("Abkürzung", lookat:=xlWhole).Column Spalte_Plan = Worksheets("Master Datei").Rows(1).Find("Plan I-B", lookat:=xlWhole).Column Worksheets("Master Datei").Activate intLastRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row For Start = 1 To intLastRow Objekt = Worksheets("Tabelle1").Cells(Start, 1).Value Set rng = Sheets("Master Datei").Columns(1).Find(Objekt, lookat:=xlWhole) If Not rng Is Nothing Then Zeile = rng.Row Abk = Sheets("Master Datei").Cells(Zeile, Spalte_Abkürzung).Value URL = Sheets("Tabelle1").Cells(Start, 3).Value On Error Resume Next '---Hyperlink zuteilen ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Master Datei").Shapes("Plan" & Abk), _ Address:=URL ' bei Fehler neu Erstellen If Err.Number 0 Then ActiveSheet.Shapes("Plan").Copy Cells(Zeile, Spalte_Plan).Select ActiveSheet.Paste With Selection.ShapeRange .Name = "Plan" & Abk ActiveSheet.Hyperlinks.Add Anchor:=.Item(1), Address:=URL End With End If End If Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Du hast mich falsch verstanden. Mit Resume Next springe ich auf die Codezeile nach dem Fehler, dorthin will ich aber gar nicht. Bei mir ist es meist so, dass bei einem Fehler der Code nicht mehr weiter ausgeführt, sondern einfach nur noch kontrolliert beendet werden soll. Ich zerlege meinen Code in der Regel ziemlich stark und entweder läuft eine Funktion komplett durch oder das was sie machen sollte hat eh nicht geklappt (was ich dann am Rückgabewert sehe).
Wenn nun bspw. im Code eine Arbeitsmappe geöffnet wird, die am Ende wieder geschlossen sein soll, dann wäre es natürlich schön wenn man das in der Fehlerbehandlung einfach mit
errorHandler:
On Error Resume Next
Workbooks("Quelldaten.xls").Close False
erledigen könnte - ich muss mich dann nicht darum sorgen, ob die Mappe überhaupt offen ist. Natürlich kann ich jetzt mehrfache Sprungmarken verwenden, Objekte zuweisen (die ich dann auf "Nothing" prüfen kann) etc., nur wenn man nun mehrere Arbeitsmappen öffnet und auch wieder schließt, dann werden das etwas viel Aufwand nur rein dafür, dass alle Arbeitsmappen zu sind.
Jetzt kann man das natürlich durch
errorHandler:
resume endError
endError:
On Error Resume next
Workbooks("Quelldaten.xls").Close False
lösen, ist zumindest einfacher als 5+ Sprungmarken zu verwenden. Nur schön sieht es dennoch nicht aus.
Gruß, Jogy

Fehlerbeschreibungen Beschränke Dich nicht auf die lapidare Feststellung Excel meldet Fehler; gib die exakte Fehlermeldung an. Stoppt Excel einen VBA-Code, gib die exakte Zeile des Programmabbruchs an.

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread