Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Speichern()
   Dim wks As Worksheet
   Dim sFile As String
   Application.ScreenUpdating = False
   sFile = Application.DefaultFilePath & "\test.xls"
   For Each wks In Worksheets
      With wks.UsedRange
         .Value = .Value
      End With
    Next wks
    ActiveWorkbook.SaveAs sFile
    Application.ScreenUpdating = True
End Sub

    

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