Als Antwort auf diesen Beitrag
Hallo Case,
vielen Dank
aber doch nochmal nachgefragt, wenn ich das jetzt wie unten stehend einbaue... ist das dann richtig so? wundert mich ein wenig dass dann in meiner Version das Makro nie zu dem Punkt End Sub kommt... wenn ich herunterfahren auswähle
Danke auf jeden Fall für deine Hilfe
Christian
Select Case auswahl
Case 1
' Abfrage VOR dem Makro
AntwortHerunterfahren = MsgBox( _
"Nach Ausführung speichern und herunterfahren?", _
vbYesNo + vbQuestion, _
"Speichern & Herunterfahren")
If AntwortHerunterfahren = vbYes Then
HerunterfahrenNachMakro = True
End If
Call ErstesMakro
If HerunterfahrenNachMakro = True Then
ThisWorkbook.Save
varShell = shell("shutdown /s /f /t 5", vbHide)
End If
Case 2
Call zweitesMakro
Case 3
Call drittesMakro
die Deklaration von varShell hab ich schon ganz am Anfang zu den anderen Variablen gepackt