Hallo,
kann mir jemand sagen , was hier falsch ist, hängt sich bei ActiveWorkbook.SaveAs.... auf.
Datei soll abfragen, ob in A33 das heutige Datum steht, wenn Ja zur ELse, wenn
NEIN, dann Datei als 2006SI.xls auf C:\ sichern, diese Sicherungsdatei ohne Abfrage sichern und schließen, die OriginalDatei wieder öffnen, in A33 das heutige Datum eintragen und dann weiter zu ELSE
Danker Peter
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If Sheets("Start").Range("A33") &lt&gt Date Then
ActiveWorkbook.SaveAs Filename:="C:\2006Si.xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Windows("2006Si.xls").Activate
Workbooks.Open Filename:="I:\Info1\GMT\2006.xls"
Windows("Gmt2006Si.xls").Activate
ThisWorkbook.Saved = True
MsgBox ("Datei wurde auf C:\ gesichert")
Range("A33") = Date
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else
Else
Makro laüft weiter