Sprich auf c soll die Tabelle dann mit Uhrzeit und Datum gespeichert werden.
bsp.
11:2001juni.xls
12:3902juni.xls
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C27")) Is Nothing Then
If Range("C27").Value = "okay" Then
On Error Resume Next
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="D:\xl\" & Format(Now, "yyyy/mm/dd_hh-mm") & ".xls"
Application.EnableEvents = True
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical, "Fehler " & Err.Number
Err.Clear
Else
MsgBox "Datei wurde gespeichert", vbInformation
End If
End If
End If
End Sub
Gruß Matthias