ich habe diesen folgenden Code, der vor dem Schließen eines Workbooks ausgeführt wird:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Beenden
End Sub
Sub Beenden()
On Error GoTo Fehlermeldung:
If ActiveSheet.Name "Durchschreibe" Then
Worksheets("Durchschreibe").Range("O2").Value = "starten"
Application.DisplayAlerts = False
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Enter}"
Worksheets("Durchschreibe").Select
Application.DisplayAlerts = True
' Call Workflow_ausführen
End If
Fehlermeldung:
Exit Sub
End Sub
Wenn ein Benutzer das Workbook über das X (rechts oben) schließt, dann soll keine Speichernabfrage von Excel erscheinen, sondern zum Worksheet "Durchschreibe" zurückgekehrt werden.
Ich habe dieses Problem über eine Notlösung mit "SendKeys" gelöst. Mein 'Problem ist, dass ich danach noch gerne das Makro "Workflow_ausführen" starten würde, was so aber leider nicht klappt!
Es soll:
1. die Speichern-Meldung abgefangen werden
2. zur Worksheet "Durchschreibe" gewechselt werden
3. das Makro "Workflow_ausführen" gestartet werden!
Wie kann ich dieses Problem in den Griff bekommen, dass dies in der o. g. Reihenfolge geschieht?
Vielen Dank für eure Hilfe!
Florian