Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einzelnes Tabellenblatt speichern

Gruppe

Speichern

Problem

Wie kann ich ein einzelnes, zu benennendes Tabellenblatt unter einem zu benennenden Dateinamen speichern?

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

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