On Error GoTo...

Hallo meine Lieben,
ich wollte das wenn ich auf einem Button drück und ein Code ausgeführt wird, dabei aber ein Fehler passiert, das man zu einer Userform weitergeleitet wird, wo man diesen mit vorgegeben Sachen fixen kann.
Es funktioniert alles, außer das mit dem Fehler...
Hier der Code:

Private Sub CommandButton_Speichern_Click()
On Error GoTo Speicherort_ändern
If Sheets("Einstellungen").Range("D6").Value = "" Then
SpeicherDaten_einfügen.show
ActiveSheet.Range("A3:W40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets(" _
Einstellungen").Range("D6") & "\" & Sheets("Achsbild").Range("U1") & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Sheets("Achsbild").CommandButton_Speichern.AutoSize = True
Sheets("Achsbild").CommandButton_Speichern.Width = 120
Sheets("Achsbild").CommandButton_Speichern.Height = 26
Else
ActiveSheet.Range("A3:W40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets(" _
Einstellungen").Range("D6") & "\" & Sheets("Achsbild").Range("U1") & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Sheets("Achsbild").CommandButton_Speichern.AutoSize = True
Sheets("Achsbild").CommandButton_Speichern.Width = 120
Sheets("Achsbild").CommandButton_Speichern.Height = 26
End If
Speicherort_ändern:
Speicherort_ändern.show
End Sub

Vielen Dank im Voraus,
LG Herbert!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
naja, du willst verhindern dass der Code nach dem Fehlersprung ausgeführt wird, wenn das Makro normal ohne Fehler durchläuft.
Das kann man auf mehreren Wegen erreichen.
Ein gezeigter Weg ist, dass man mit EXIT SUB den Makrolauf vorher beendet, im Fehlerfall wird diese Zeile übersprungen:

Sub xxx()
 on error goto Fehler
 hier kann der Fehler passieren
Exit Sub
Fehler:
hier der Code für den Fehlerfall
End Sub

die andere Variante wäre, da solche abbrüche von manchen als unschön empfunden werden, an dieser Stelle zu prüfen, ob ein Fehler stattgefunden hat.
Dazu kann man die Systemvariable err verwenden, welche im Regelfall den Wert 0 hat und im Fehlerfall die Nummer des Fehlers enthält, so wie sie dir in der Meldung angezeigt wird.
Dh du könntest dann die Fehlerbehandlung so überspringen, wenn kein Fehler passiert ist:

Sub xxx()
 on error goto Fehler
 hier kann der Fehler passieren
Fehler:
if err  0 Then
hier der Code für den Fehlerfall
End if
End Sub

ggf kannst du auch die Fehlernummer genauer abfragen und bei unterschiedlichen Fehlern unterschiedlich reagieren.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

On Error GoTo...

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread