Makoränderung aus Zellenlesen
27.08.2006 10:23:04
Thorsten
ich brauche mal euer Fachwissen. Ich selber komme hier nicht weiter. :-((
Dieses Makro habe ich mal von Hans Herber bekommen und das läuft auch Super.
Nun möchte ich es aber nur so abgeändert haben, dass der Name der Datei aus Zelle B1 gelesen wird und das Datum aus Zelle A1 genommen wird, alles andere so so bleiben auch die Eigenschaft das die Gespeicherte Datei geschlossen bleibt.
Könnte mir einer hierbei Helfen ?
Option Explicit
Sub Sicherung()
Dim strFileName As String
strFileName = "D:\Test\Test\Test\Test" & DINWeek(Now) & "_" & Year(Now) & ".xls"
ActiveSheet.Copy
ActiveSheet.Buttons.Delete
ActiveWorkbook.SaveAs Filename:=strFileName
ActiveWorkbook.Close savechanges:=False
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
Liebe Grüße aus Thüringen-ein begeisteter Forumanhänger