VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktive Arbeitsmappe ohne VBA-Code und Button speichern

Gruppe

Datei

Bereich

Speichern

Thema

Aktive Arbeitsmappe ohne VBA-Code und Button 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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Speichern