zurück zum unten aufgefürten chat
Deine E-Mail Adresse bringt bei mir eine Fehlermeldung
Danke schon mal für deine Hilfe
das mit der Fehlerhandhabung habe ich noch nie erstellt
kannst du mir da noch auf die Sprünge Helfen?
Danke
Pius
Danke schon mal für deine Hilfe
das mit der Fehlerhandhabung habe ich noch nie erstellt
kannst du mir da noch auf die Sprünge Helfen?
Danke
Pius
sorry, hier die richtige email Adresse.
Zum Thema Fehlerbehandlung sende ich dir einen Ansatz von mir, den ich in der Testphase eines Programms verwende. Bei einem aufgetretenen Fehler wird nicht nur Err.Number und Err.Description ausgegeben. Bei einem aufgetretenen Fehler erfolgt in der Fehlerbehandlung ein Stop mit anschliessendem Resume, sodass das Programm an die Stelle springt, an der der Fehler aufgetreten ist. Hier der Programmteil:
Fehlerbehandlung:
'*** Messagebox-Text zusammensetzen
Msg = "Fehler-Nr.: " & Err.Number & " Beschreibung: " & Err.Description & vbCrLf
Msg = Msg & vbCrLf
Msg = Msg & "1. Beenden velässt die Prozedur oder Subroutine" & vbCrLf
Msg = Msg & "2. Wiederholen führt ein Resume aus" & vbCrLf
Msg = Msg & "3. Ignorieren setzt den Haltepunkt in der Fehlerbehandlung" & vbCrLf
Antwort = MsgBox(Msg, vbCritical + vbAbortRetryIgnore, "Fehlerbehandlung")
Select Case Antwort
Case vbAbort
Application.ActiveWorkbook.Close
Exit Sub
Case vbRetry
Application.ActiveWorkbook.Close
Resume
Case vbIgnore
Call FehlerMeldungen
Stop
Resume
Exit Sub
End Select
ich habe noch einen Programmteil unterschlagen:
Sub FehlerMeldungen()
Open Application.ActiveWorkbook.Path & "\Fehlermeldungen.txt" For Append As #1
Print #1, Msg;
Print #1, Now;
Print #1,
Print #1,
Close #1
End Sub
Hiermit wird die Fehlermeldung in die Datei Fehlermeldungen.txt im Programmverzeichnis geschrieben. Wenn diese noch nicht existiert, wird sie angelegt. Wenn sie bereits vorhanden ist wird die Fehlermeldung angehängt.
Gruss Harald
danke nochmal
so das sind drei Antworten.
Ich bin nun soweit, dass ich ein "Gnusch" veranstallten werde.
Wie läuft das nun mit der Fehler Nr.
und die Formatierung solte auf target.Interior.color = 35 zurückgesetzt werden.
Ich glaube ich sende Dir mal das ganze Sheet
Gruss Pius