Vielen Dank im Vorraus!
Liebe Grüße, Nico
Private Sub Workbook_Open()
Application.OnTime TimeValue("20:30:00"), "Autospeichern"
End Sub
in ein Modul
Sub Autospeichern()
Dim TB1 As Worksheet, Wb2 As Workbook
Dim RngQ As Range, RngZ As String
Dim Pfad As String, Datei As String, Ext As String
If Weekday(Date, vbMonday)
LG UweD