Thema: Einzelnes Tabellenblatt speichern

StandardModule: basMain

Sub BlattSpeichern()
   Dim sPath As String, sWks As String, sFile As String
   Application.ScreenUpdating = False
   sPath = Application.DefaultFilePath & "\"
   sWks = InputBox( _
      prompt:="Blattname", _
      Default:="Tabelle")
   If sWks = "" Then Exit Sub
   sFile = InputBox( _
      prompt:="Dateiname:", _
      Default:="c:\test.xls")
   If sFile = "" Then Exit Sub
   ActiveSheet.Copy
   ActiveSheet.Name = sWks
   ActiveWorkbook.SaveAs sPath & sFile
   Application.ScreenUpdating = True
End Sub

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