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
58.4k Fragen
249k Antworten
7k Nutzer