ich habe mir eine Vorlage erstellt in der nun schon mehrere Tabellenblätter sind, aus der ich nach dem drücken auf einen Button, der das unten aufgeführte Makro startet eine .xls mache. Nun möchte ich aber nicht alle Tabellenblätter mit in die .xls nehmen sondern nur Tabelle1 und wenn machbar können auch die Makros entfallen. Hoffe das mir da jemand helfen kann.
'Datei speichern
Dim Dateiname$
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Stunden")
Dateiname = ThisWorkbook.Path & "\" & ws.Range("B17") & ".xls"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.SaveAs Filename:=Dateiname
ActiveSheet.Shapes("Schaltfläche 1").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
On Error GoTo 0
Set ws = Nothing