Datei lässt sich nicht schliessen @ Werner
29.01.2019 07:46:51
Alex
jedoch kommt jetzt immer die msg Box "Der Datentransfer für heute wurde noch nicht durchgeführt" _ kann man hier der msg Box noxh sagen dass man die Datei süpeichern und beenden möchte ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountIf(Worksheets("ErfassungEinstätze").Columns("C:C"), Date) = 0 Then
Cancel = True
MsgBox "Der Datentransfer für heute wurde noch nicht durchgeführt.", Buttons:=vbInformation
End If
End Sub