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ß MatthiasProblemstellung
Wie kann ich Eingabelücken mit Werten auffüllen?
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen