jerry0110
Erfahrenes Mitglied
Hi,
ich habe für meine Speicherung folgendes vor. Ich möchte gerne das die Dateien immer mit dem Tag vorher abgespeichert werden. Dies Funktion habe ich erstellt um das Datum so anzupassen,wenn es Montag ist, dass man die Datei zu mit dem Datum von Freitag abspeichert. Ist es Dienstag dann der Montag.
Funktion:
Speicherung:
Wo habe ich den Denkfehler?
ich habe für meine Speicherung folgendes vor. Ich möchte gerne das die Dateien immer mit dem Tag vorher abgespeichert werden. Dies Funktion habe ich erstellt um das Datum so anzupassen,wenn es Montag ist, dass man die Datei zu mit dem Datum von Freitag abspeichert. Ist es Dienstag dann der Montag.
Funktion:
Code:
Private Function Datum()
Dim myDate As Date
If Date = Weekday(Date, vbMonday) Then
myDate = Date - 3
Else
myDate = Date - 1
End If
End Function
Speicherung:
Code:
Private Sub Datei_speichern_Buchhaltung()
Dim sOrdner As String
Dim sblattname As String
Dim sFilename As String
Dim myDate As Date
myDate = Datum
sOrdner = "C:\test\"
sblattname = Format(myDate, "YYYYMMDD") & "_Buchhaltung.xls"
sFilename = Application.GetSaveAsFilename _
(sOrdner & sblattname, "Micrsoft Excel-Dateien (*.xls),*.xls")
Worksheets("Buchhaltung").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFilename, FileFormat:=xlNormal
ActiveWorkbook.Close False
End Sub
Wo habe ich den Denkfehler?