Thema: On Error GoTo geht nicht | Herbers Excel-Forum

Hallo alle zusammen,
ich habe ein problem mit dem befehl On Error GoTo
und zwar an der stelle meines codes wo on error goto 2 steht
er springt nicht zur 2: sondern zeigt mir statt dessen einen laufzeitfehler an.

Private Sub CommandButton9_Click()
Dim FsyObjekt As Object
Dim Jahr As String
Dim jahr1 As String
Dim name As String
Dim folder2 As String
If MsgBox("dieser Vorgang kann je nach Rechenleistung und Datenmenge bis zu 5 min dauern",  _
vbOKCancel) = vbOK Then
strpath = ThisWorkbook.Path
ChDir strpath
name = Left(strpath, 18)
folder = name & "wartung archiv"
Jahr = Year(Date)
folder2 = folder & "\" & Jahr
On Error GoTo 1
3:    MkDir folder2
1:      Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
Err.Clear
On Error GoTo 2
FsyObjekt.CopyFolder strpath, folder2
Err.Clear
Else
Exit Sub
End If
MsgBox "Archivierung erfolgreich"
Exit Sub
2:    MsgBox "Der Ordner Wartungslisten\Wartung Archiv\ wurde gelöscht. Verzeichnis wird jetzt   _
_
erstellt"
MkDir folder
GoTo 3
End Sub

Hallo,
ich würde sagen, er springt zur 2, aber die Zeile mit der MsgBox ist nicht richtig.
Was sollen die beiden Unterstriche "_" und Zeilenumbrüche? Stehen die so bei Dir im Code?
Gruß
Björn

nein das macht das forum automatisch wenn die zeile zu lang ist. bei mir stehts ohne _ in einer zeile.
er springt leider nicht zur 2 sondern gibt mir einen laufzeit fehler bei der zeile
"FsyObjekt.CopyFolder strpath, folder2"
diese zeile sollte er bei einem fehler eigentlich überspringen

Hallo Alex,
aus deinem Code wird mir nicht klar, was genau du machen willst, daher erstmal nur ganz allgemein. Wenn du mit der On Error-Anweisung eine Fehlerkorrektur programmierst, die Laufzeitfehler abfängt, dann springt die Ausführung des Codes nicht nur zu gewünschten Stelle, sondern VBA wechselt auch in den Fehlerkorrekturmodus. Dieser Fehlerkorrekturmodus muss durch einen Resume-Befehl wieder beendet werden, dann wechselt VBA wieder in den normalen Modus zurück.
Im Fehlerkorrekturmodus akzeptiert VBA keine weiteren On Error-Anweisungen. Daher werden zwischen On Error-Anweisung und Resume-Anweisung auftretende Laufzeitfehler nicht abgefangen, sondern die Ausführung bricht mit dem jeweiligen Laufzeitfehler ab.
Insofern ist deine Fehlerbehandlung grundlegend falsch angelegt. Statt über eine Fehlerbehandlung direkt an die richtige Stelle zu springen, könntest du alle Bearbeitungsmöglichkeiten in einer If...Then...ElseIf-Struktur anlegen, wobei du in den If- bzw. ElseIf-Anweisungen Variablen prüfst, die du in der Fehlerbehandlung entsprechend bestückst.
Gruß Ingolf

ahh ok jetzt ist mir auch klar warum das nicht geklappt hat.
kann ich nicht hinter jeder sprung marke einen resume befehl einbauen so das excel den error modus verlässt?

Hallo Alex,
nein, so funktioniert das nicht. Du müsstest den Resume-Befehl ja dorthin setzen, wo die Ausführung weitergeht, also dort, wohin du mit dem On Error GoTo-Befehl springst. Auf den Resume-Befehl hin springt VBA aber wieder auf den Befehl zurück, der den abgefangenen Laufzeitfehler ausgelöst hat (Resume) bzw. auf den darauf folgenden Befehl (Resume Next). Damit wird also auch die Wirkung der Spunganweisung aufgehoben.
Was soll das Makro denn genau tun?
Gruß Ingolf

als erstes soll ein verzeichnis (jahreszahl als namen) in dem verzeichnis "wartung archiv" erstellt werden und alle daten aus dem verzeichnis "wartung aktuell" dort hin kopieren
sollte dieses verzeichnis schon existieren so soll excel kein verzeichnis erstellen sondern gleich kopieren (währe sprungmarke 1:). bis dahin funktioniert das makro.
sollte das verzeichnis "wartung archiv" nicht existieren so soll excel erst "wartung archiv" erstellen (sprungmarke 2:) und danach das verzeichnis "jahreszahl" (sprungmarke 3:)

Hallo Alex,

danke an Ingolf für den tipp mit dem resume befehl.
und danke sepp dein code funktioniert super.
nur leider habe ich keine ahnung was dort steht bzw. was excel dort macht^^
ich hatte es unterdessen auch hinbekommen.
ist es problematisch oder könnte es problematisch werden, wenn ich meinen code nehme?

Private Sub CommandButton9_Click()
Dim FsyObjekt As Object
Dim Jahr As String
Dim name As String
Dim folder2 As String
If MsgBox("dieser Vorgang kann je nach Rechenleistung und Datenmenge bis zu 5 min dauern",  _
vbOKCancel) = vbOK Then
strPath = ThisWorkbook.Path
ChDrive Left(strPath, 2)
ChDir strPath
name = Left(strPath, 18)
folder = name & "wartung archiv"
Jahr = Year(Date)
folder2 = folder & "\" & Jahr
On Error GoTo 1
3:    MkDir folder2
1:      Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
Resume Next
On Error GoTo 2
FsyObjekt.CopyFolder strPath, folder2
Err.Clear
Else
Exit Sub
End If
MsgBox "Archivierung erfolgreich"
Exit Sub
2:    MsgBox "Der Ordner Wartungslisten\Wartung Archiv\ wurde gelöscht. Verzeichnis wird jetzt  _
erstellt"
MkDir folder
Resume
GoTo 3
End Sub

gruß alex

Hallo Alex,
der Code macht das selbe wie deiner, allerdings ohne Sprungmarken.
Die API-Funktion "MakeSureDirectoryPathExists" erstellt gesamte Vezeichnisbäume, sofern diese noch nicht existieren, in einem Rutsch. Wichtig ist dabei, das der Pfad mit "\" endet, sonst wird der letzte Teil nicht erstellt.

Hallo Alex,
versuch' mal folgendes (ungetestet):

Private Sub CommandButton9_Click()
Dim objFSO As Object
Dim strPath As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Dem Benutzer eine Abbruchmöglichkeit geben
If MsgBox("Dieser Vorgang kann je nach Rechenleistung und Datenmenge " _
& "bis zu 5 min dauern!", vbOKCancel) = vbCancel Then Exit Sub
'Ordner "wartung archiv" erstellen, falls dieser noch nicht existiert
If Not objFSO.FolderExists(Left(ThisWorkbook.Path, 18) _
& "wartung archiv") Then
objFSO.CreateFolder Left(ThisWorkbook.Path, 18) & "wartung archiv"
End If
'Im Ordner "wartung archiv" den aktuellen Jahresordner erstellen,
'falls dieser noch nicht existiert
If Not objFSO.FolderExists(Left(ThisWorkbook.Path, 18) _
& "wartung archiv\" & Year(Date)) Then
objFSO.CreateFolder Left(ThisWorkbook.Path, 18) & "wartung archiv\" & Year(Date)
End If
'Daten archivieren
objFSO.CopyFolder ThisWorkbook.Path, Left(ThisWorkbook.Path, 18) _
& "wartung archiv\" & Year(Date)
End Sub

Gruß Ingolf

danke ingolf
dein code funktioniert einwandfrei. außerdem kann ich als anfänger noch nachvollziehen was dort passiert^^.
ich denke ich werde den nehmen.
gruß alex