VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einzelnes Tabellenblatt speichern

Gruppe

Datei

Bereich

Speichern

Thema

Einzelnes Tabellenblatt 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

    


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