letztens habe ich dieses Markro bekommen, das funktioniert soweit auch gut.
Könnte man dies doch noch ein wenig ändern ?
1.)ich möchte den Pfad bestimmen wo es gespeichter wird und weis nicht wie
2.)Es soll nur die Sichttabelle gespeichert werden und nicht die ganze Mappe, wenn möglich, sollten die Button auch nicht mit Kopiert werden ?
Kann man dies so ändern ? Wenn ja, könntet Ihr mir helfen !
Option Explicit
Sub Sicherung()
Dim strFileName As String
strFileName = "Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"
ThisWorkbook.SaveCopyAs Filename:=strFileName
End Sub
Function DINWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function
Währe echt Super
Gruß Torte