meine Excel File sollte nur Freitag, Samstag oder Sonntag geschlossen werden können.
Für einen einzelnen Tag bring ich es hin, aber nicht für mehrere.
Zusätzlich soll man es immer schließen können, wenn man eine bestimmte Zahl in eine bestimmte Zelle einträgt.
Funktioniert:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Format(Date, "DDDD") = "Freitag" Then Cancel = True
If Worksheets("Diagramme").Range("E1").Value = "1337" Then Cancel = False
End Sub
Funktioniert nicht:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Format(Date, "DDDD") = "Freitag" Then Cancel = True
If Not Format(Date, "DDDD") = "Samstag" Then Cancel = True
If Not Format(Date, "DDDD") = "Sonntag" Then Cancel = True
If Worksheets("Diagramme").Range("E1").Value = "1337" Then Cancel = False
End Sub
Funktioniert nicht:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Format(Date, "DDDD") = "Freitag" or Format(Date, "DDDD") = "Samstag" or
.. Then _
Cancel = True
If Not Format(Date, "DDDD") = "Sonntag" Then Cancel = True
If Worksheets("Diagramme").Range("E1").Value = "1337" Then Cancel = False
End Sub
Was mache ich falsch?
Danke Gruß Marco