Wie verlinke ich 2 Subs?
02.02.2004 10:34:29
Daniel
Nochmal eine kleine Frage :)!
Situation:
Das Makro kann an einer Stelle einen Befehl nicht erfolgreich ausführen. Um nun den drohenden Abbruch vorzubeugen, habe ich folgende Zeile eingefügt:
"On Error GoTo Fehler"
Normalerweise müsste ich ja jetzt an die relevante Stelle im Quelltext Fehler: schreiben, damit VBA weiß, wo es weiter machen muss. Nun meine Frage - wie kann ich VBA 'sagen', dass es bei diesem Error in ein anderes Sub im gleichen Makro geht und dieses ausführt und wo muss ich dieses "Fehler-Sub" dann plazieren? (Zwischen Sub und Sub End des eigentlichen Makros oder danach?!)
Um dieses Sub geht es:
Sub
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
ChDir "L:\BAU\KST\KST_Bericht"
Workbooks.Open Filename:= _
"L:\BAU\KST\KST_Bericht\Report_Muster_neu_46TEST.XLS" _
, UpdateLinks:=xlUpdateLinksNever
Sheets("Report").Select
Application.DisplayAlerts = True
Sub End