Hallo zusammen,
ich habe bei meiner Datei ein Problem, welches mich wirklich zur Verzweiflung bringt.
Ich habe eine Userform mit folgendem Code zum Schließen:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Workbooks("Anschreibengenerator_2.0.xlsm").Worksheets("ANSCHREIBENGENERATOR").Activate
Workbooks("Anschreibengenerator_2.0.xlsm").Save
If MsgBox("Wollen Sie wirklich abbrechen?", vbYesNo, "Achtung") = vbYes Then
Application.Visible = True
Workbooks("Anschreibengenerator_2.0.xlsm").Close SaveChanges:=True
End If
Exit Sub
Fehlerbehandlung:
Call Fehlerszenario
End Sub
Wenn ich zusätzlich zur Datei "Anschreibengenerator_2.0.xlsm" noch eine weitere geöffnet hab, schließt sich die Datei "Anschreibengenerator_2.0.xlsm" und alle anderen geöffneten werden wieder eingeblendet. Und jetzt das Phänomen... Ein paar Sekunden später öffnet sich die Datei "Anschreibengenerator_2.0.xlsm" wieder, obwohl diese komplett geschlossen ist und kein anderes Makro läuft.
Hat jemand einen Tipp für mich, warum das passiert?
|