[ThunderKiller]

Hi!
Eine Frage: Ich kann doch einen Runtime Error durch meine eigene Fehlermeldung ersetzen oder? Aber wie geht das?

Bitte helft mir

MfG ThunderKiller

[Stefan_der_held]

Zitat (ThunderKiller: 06.02.2007, 16:44)

Hi!
Eine Frage: Ich kann doch einen Runtime Error durch meine eigene Fehlermeldung ersetzen oder? Aber wie geht das?

Bitte helft mir

MfG ThunderKiller

on error goto wattweissich

Dies an den Anfang der Sub setzen und eine Entsprechende Sprungmarke in das Programm einbauen


In dieser Sprungmarke kannst du dann halt definieren was im Fehlerfall passieren soll.... (Meldungen, Aktionen etc)

Nur Voricht:

Bei Sprungmarken passiert es gerne, dass man vergisst dafür zu sorgen dass diese nur in bestimmten fällen aufgerufen wird

Mit dem erstellen einer sepperaten Funktion ists schöner

also da würd der Code so ausschauen:

on error
	 call wattweißich

Dieser Beitrag wurde von Stefan_der_held bearbeitet: 07. Februar 2007 - 13:34

[ThunderKiller]

danke! probiere es gleich ma aus.

aber gab es da nich noch nen befehl if errornumber "20" then tudasunddas oder sowas?

also das wenn ich einen bestimmten error bekomme, eine bestimmte meldung ausgeben kann?

Dieser Beitrag wurde von ThunderKiller bearbeitet: 07. Februar 2007 - 16:45

[Stefan_der_held]

Zitat (ThunderKiller: 07.02.2007, 16:44)

danke! probiere es gleich ma aus.

aber gab es da nich noch nen befehl if errornumber "20" then tudasunddas oder sowas?

also das wenn ich einen bestimmten error bekomme, eine bestimmte meldung ausgeben kann?

Das resultiert ja aus "On Error"

Erstmal musst du ja quasi den Programm Ablauf unterbrechen bevor du den Errorlevel auswerten kannst

Vorallem ist es wichtig das

On Error

VOR dem Punkt zu setztn wo ein Fehler auftreten könnte

Also wenn du nicht willst, dass ne Fehlermeldung bei Leeren Feldern kommt müsste diesungefähr so ausschauen:

start:
On Error goto waszutuenNoPanic

dim Wert1 as integer

Wert1=inputbox("Bitte geben sie ein Wert ein")
msgbox="Sie haben "& Wert1 &"Eingegeben"
end
if Wert1="" then
	 msgbox"Eh! Will Wert haben sonst ich streiken"
end if
goto start

PS: ist nur ebend aussem Steh-Greif geschrieben^^ also bitte nicht falsch bewerten

MFG

Stefan

Dieser Beitrag wurde von Stefan_der_held bearbeitet: 07. Februar 2007 - 17:44