"Abrechen" bei SaveAs Open - Dialogen
16.03.2004 13:50:55
Peter
Ich habe bei meinem Userforms einmal einen Open Dialog, einmal einen SaveAS dialog. Ich will gerne bei beiden das "Abbrechen" abfangen, so dass z.B. dann eine Msgbox erscheint.
Ich nutze
Set dlg = Application.Dialogs(xlDialogOpen)
zum öffnen des Dialoges und dachte, dass ich mit
'If dlg.Show = False Then MsgBox " blub"
das Problem abfangen kann, tue ich aber nicht. Es kommt zwar die MsgBox und danach wieder das Dialogfenster (so sollte es sein!!). NUR, wenn ich dann wieder "Abbrechen" auswähle (also 2x nacheinander) bricht er ab.
UND (was noch schlimmer ist) wenn ich eine Datei auswähle und "ok" drücke, dann öffnet das Dialogfenster erneut und funktioniert nur beim 2. mal....
Paralles Problem beim SaveAs....
Weiß jmd. von Euch eine Lösung?