Tabelle Speichern
30.04.2003 17:43:49
Andy
Eine Frage an alle. Möchte ein einzelnes Tabellenblatt speichern habe einen Code aus dem Forum aber der Funktioniert nicht.
Bitte um Hilfe.
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:\Eigene Dateien")
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True
End Sub
Anzeige