Tabellenblatt richtig abspeichern
19.10.2012 09:48:52
Heidi
ich bräuchte bitte Hilfe. Ich habe eine Exceldatei mit mehreren Tabellenblättern.
Jetzt möchte ich die einzelnen Tabellenblätter abspeichern. Mein Makro funktioniert soweit, leider übernimmt er nicht alle Daten in den Zellen, warum?
Sub BlattSpeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "\"
sWks = InputBox( _
prompt:="Blattname", _
Default:="LK ")
If sWks = "" Then Exit Sub
sFile = InputBox( _
prompt:="Dateiname:", _
Default:="LK")
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
Application.ScreenUpdating = True
End Sub