Sub schliessen() Dim Antwort 'Nachfrage, ob Arbeitsmappe geschlossen werden soll Antwort = MsgBox("Arbeitsmappe wirklich schließen?", 36, "Schließen?") 'Falls ja, Arbeitsmappe speichern und schließen If Antwort = vbYes Then ActiveWorkbook.Close (True) End Sub
57.5k Fragen
245k Antworten
6.6k Nutzer