Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktive Arbeitsmappe ohne VBA-Code und Button speichern

Gruppe

Speichern

Problem

Die aktive Arbeitsmappe soll über die eine Schaltfläche ohne VBA-Code und ohne Schaltfläche gespeichert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub SaveOnlySheets()
   Dim iWks As Integer
   Dim sFile As String
   iWks = ActiveSheet.Index
   sFile = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
   If sFile = "" Then Exit Sub
   Worksheets.Copy
   Worksheets(iWks).Buttons.Delete
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs sFile
   Application.DisplayAlerts = True
   ThisWorkbook.Close savechanges:=False
End Sub