Bei Fehler speziellen Code ausführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Fehler sollte man möglichst vermeiden und Fehlerbehandlungen nur für unbekannte und nicht vermeidbare Fehler vorhalten.
Hier lässt sich das ganze elegant ohne Fehler lösen:

for each QWS in QWB.Worksheets

    if QWS.Name = "Import" then Exit for

Next



if QWS is nothing then

    msgbox "Blatt ""Import"" fehlt in Datei " & QWB.Name, vbCritical

else

    QWS.Copy ...

End if

dh nach der Schleife mit Exit For kannst du immer mit If QWS is Nothing abfragen, ob das Blatt da ist oder nicht.

bzw ZWB.ActiveSheet ist grober Unfung.
Das ActiveSheet funktioniert nur in der aktiven Datei, deswegen macht es keinen Sinn, da ein Workbook-Objekt davor zu setzen.
Man muss zumindest sicherstellen, dass die Datei dann auch aktive ist:

ZWB.Select

set ZWS = ActiveSheet

Wobei man das auch nur dann machen sollte, wenn der Anwender auf diese Weise auswählen soll, wo das neue Blatt eingefügt werden soll, ansonsten sollte man das Blatt direkt angeben, bei allen "Active..."-Aktionen besteht sonst immer die Gefahr, das mal aus versehen was falsches aktiv ist, (vorallem wenn man im Einzelstep testet)

Gruß Daniel

Moin,

ich bin ganz bei Daniel, dass Fehler vermieden werden sollten, es ist aber manchmal sehr bequem, einen fehlertolerante Handlung zu verwenden.

Spricht: wir nehmen an, dass eine Fehler gemacht wird, aber, da Fehler pro Sub/Function behandelt werden, wir isolieren den potentiel fehlerberursachende Code in einer separaten Function und testen anschliessend das Ergebnis.
In dieser abgelagerte Function sollte nur die eine Aktion vorgenommen werden.

Sub Blatt_kopieren()

' Quelle

    Set QWS = Blatt_auswählen(QWB, "Import") 

' after ActiveSheet kopieren

    If Not QWS Is Nothing Then QWS.Copy Before:=ZWB.ActiveSheet

End Sub



Private Function Blatt_auswählen(wb As Workbook, BlattName As String) As Worksheet

Try:

    On Error GoTo Catch

    Set Blatt_auswählen = wb.Worksheets(BlattName)

    GoTo Finally

Catch:

    'FehlerBehandlung, falls notwendig

Finally:

    Resume 'Error-Flag zurücksetzen

    'Aktivität(en), die auf alle Fälle erledigt werden sollten

End Function

Der "Try-Catch-Finally"-Muster ist hier über-pompös, aber manchmal notwendig. Daher ist es gut, es einmal gesehen zu haben.
Genau gesehen würde den 2 Zeiler ausreichen:

Private Function Blatt_auswählen(wb As Workbook, BlattName As String) As Worksheet

    On Error Resume Next 'Ignoriert den Fehler komplett

    Set Blatt_auswählen = wb.Worksheets(BlattName)

End Function

VG
Yal

Private Function Blatt_auswählen(wb As Workbook, BlattName As String) As Worksheet 'Liefert das Blatt mit Name Blattname, wenn vorhanden, als Objekt, ansonsten Nothing zurück. On Error GoTo Catch Try: Set Blatt_auswählen = wb.Worksheets(BlattName) GoTo Finally Catch: Finally: Resume 'Error-Flag zurücksetzen End Function

Beliebteste Forumthreads (12 Monate)

Bei Fehler speziellen Code ausführen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bei Fehler speziellen Code ausführen

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

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