On error für ganze datei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Was verstehst du unter "vor den Kopf zu stossen"? Es ist doch keine
Schande, kein Programmierer zu sein, oder?
Hajo ist ja ein fleißiger Helfer, aber eben ein "Jäger und Sammler",
der alles mögliche zusammenträgt und dann weitergibt, muss es auch
geben. Er ist nur kein Programmierer. Ein Makro aufzeichnen und daran
ein wenig rumbasteln ist noch kein Programmieren.
Bert

Hallo Bert
ich kann mich nicht erinnern das wir uns schon getroffen habe?
Über ein Berufliches Leben habe ich im Forum wenig erzählt aber scheint mir auf Dich trifft das zu was ich öffters schreibe.
1. die meisten haben hier keine Glaskugel
2. die meisten haben keinen Heiligenschein
3. die meisten können nicht auf Deinen Rechner schauen
Welcher der drei Punkte zutrifft kann ich nicht einschätzen da ich nichts von den dreien habe.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP SBE.

Du musst nichts von dir erzählen, dass du kein Programmierer bist, merkt
man auch ohne Glaskugel.
Dein pubertärer Spruch mit dem Heiligenschein läßt außerdem darauf
schließen, dass du, neben mangelnder Rechtschreibung, auch sonst noch
so einige Defizite hast.
Bert

oT

hallo allerseits,
da ich auch ab und zu fehler mache bin ich wohl auch noch kein programmierer und ich war schon so stolz auf mich :'-(
und die anwender erst noch, die machen ja gleich noch mehr fehler - die gehören doch glatt vom rechner verbannt ;-)
zurück zum ernst des lebens. zur lösung kann man eine zentrale fehlerauswertung schreiben, die aber von einer fehlerroutine aus jedem modul aufgerufen werden muss.
der fehlertext im zweiten modul muss eventuell auf optional gesetzt werden, falls es fehlermeldungen ohne text geben sollte ?

Sub test()
  On Error GoTo fehler
  [a99999].Activate
  On Error GoTo 0
  MsgBox "Das war aber ein Fehler"
Exit Sub
fehler:
  Call meldemir(Err.Number, Err.Description)
Resume Next
End Sub
Sub meldemir(ByVal fehlernummer As Integer, ByVal fehlertext As String)
  MsgBox fehlernummer & " " & fehlertext
End Sub

Hi Andre,
on error application.run"ds" geht nicht bei mir, Warum?
Gruß Ray

... machs wieder mit
on error goto irgendwo
...
exit sub
irgendwo:
application.run ..
resume
end sub
gruss andre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread