Speichern Sheet
Einzel
möchte ein Sheet speichern. Habe hierzu folgendes Makro gefunden.
(Danke an den Ersteller)
Sub BlattSpeichern()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "D:\?\
ActiveWorkbook.SaveAs Filename:="D:\Downloads\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "D:\?\
MsgBox " Die Datei wurde unter D:\Downloads\ " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub
Ähnlich wie beim kopieren. "Inhalte einfügen Werte"
Danke schon mal.
Stephan
Hoffe man kann mein Problem verstehen.
Anzeige