Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Delete und mehr als 3 bedingte Formatirungen

Delete und mehr als 3 bedingte Formatirungen
23.04.2003 10:44:50
Pius
Hallo Harald
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Delete und mehr als 3 bedingte Formatirungen
23.04.2003 11:00:29
Harald Neumann

Hallo 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


Anzeige
Re: Delete und mehr als 3 bedingte Formatirungen
23.04.2003 11:08:34
Harald Neumann

Hallo Pius,

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

Re: Delete und mehr als 3 bedingte Formatirungen
23.04.2003 11:13:14
Pius

Hallo 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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige