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
Hallo
Habe den Code aus dem Forum : Er geht bei mir leider nicht, was mache ich Falsch, gibt an das die Datei nicht vorhanden ist . Aber ein neues Tabellenblatt mit dem Namen Mappe 1 ist wird erstellt.
Er soll doch den Namen den ich ihm angebe in einer Datei speichern.
Gruss Andreas