Office: Excel Einzelnes Tabellenblatt speichern unter

Hallo Gemeinde,

folgende Fragestellung tut sich mir auf:

Ich habe eine Excel Arbeitsmappe mit Makros (.xlsm) mit mehreren Tabellenblättern.
Ich möchte nur ein bestimmtes Tabellenblatt mittels durch Betätigen eines CommandButtons abspeichern.

Hierbei möchte ich das eine TextBox erscheint, wo man dem Tabellenblatt einen neuen Dateinamen geben kann.
Abgespeichert soll das Ganze unter dem jeweiligen Desktop des Benutzers.

Folgendes habe ich bisher:

Private Sub CommandButton1_Click()
Dim varDateiname As Variant
ChDir ""
ChDrive "C:UsersloginDesktop"
varDateiname = Application.GetSaveAsFilename _
("Test.xls", "Microsoft Excel-Dateien (*.xls),*.xls")

If TypeName(varDateiname) = "String" Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs varDateiname
ActiveWorkbook.Close
MsgBox "Dateiname :" & vbLf & vbLf & varDateiname, vbOKOnly + vbInformation, "Datei wurde gespeichert :"
End If
End Sub

Diese Lösung speichert die Datei jedoch nicht als Excel Arbeitsmappe mit Makros ab und es kommt zur Fehlermeldung.

Hat jemand eine Idee, wie ich das Problem lösen kann?

Beste Grüße

:)

 

Hallo,

eventuell hilft dieser Code weiter:

Code:

LG, BigBen