ich möchte aus einer Datei das Blatt "Test" kopieren und als eigene Datei unter C:\ abspeichern und der Dateiname soll ein Text "Test" und das Speicherdatum sein.
Wie mache ich das??
Danke für Eure Hilfe
Markus
ich möchte aus einer Datei das Blatt "Test" kopieren und als eigene Datei unter C:\ abspeichern und der Dateiname soll ein Text "Test" und das Speicherdatum sein.
Wie mache ich das??
Danke für Eure Hilfe
Markus
Option Explicit
Sub Test_kopieren()
Sheets("Test").Copy
ActiveWorkbook.SaveAs FileName:="C:\Test.xls" & Date
End Sub
ActiveWorkbook.SaveAs FileName:= _
"C:\Test" & Year(Now()) & Month(Now()) & Day(Now())
Sub BlattSpeichern()
Dim Datum, Std, Min, Sname
Datum = Format(Now, "dd.mm.yy")
Std = Hour(Now)
Min = Minute(Now)
Sname = "Test"
Sheets("test").Copy
ActiveWorkbook.SaveAs "c:\" & Sname & " " & Datum & " " & Std & "h" & Min & "min" & ".xls"
End Sub
Gruß
Jens
versuchs damit:
Viel Spaß,
Sam
Sub Aktives_Blatt_kopieren()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & ActiveSheet.Name & " " & Date &".xls"
ActiveWorkbook.Close
End Sub
Vielen Dank
Markus