Hallo Leute,



hab ein Problem, sieht wie folgt aus:



Wenn ich auf den Button klicke werden diese Sub´s ausgeführt:



CreateFile (strPart)
FilterFile (strPart)
DelTab
DelZeile
DelCode





Jetzt will ich in CreateFile eine if abfrage einbauen, die wenn man bei "Speichern unter" auf abbrechen klickt, die gesamte Subroutine beendet!



Habs mit "Exit Sub" versucht, jedocht beendet es dann nur den Sub CreateFile und läft dann weiter zu Filterfile.





bolError = Application.Dialogs(xlDialogSaveAs).Show(strNewName)
strNewName = Application.ActiveWorkbook.Name
If bolError = False Then

Exit Sub




Er ignoriert das Exit Sub für die restlichen Sub´s.





Wie kann ich einen endgültigen EXIT machen?







Wäre sehr dankbar.

Gruß

Wie kann




ich es



vermeiden,






dass ich so viele unsinnige Leerzeilen in


meinem
Post


habe?


Zu deiner Frage:
Mach deine Unter-Subs zu Funktionen (also mit Rückgabewert) und verlasse sie im Fehlerfall zB mit "false". Dann kannst du in der aufrufenden Sub zB schreiben:
If Not Unterfunktion(blup) Then Exit Sub