Errormessage mithilfe Makro
07.10.2004 15:13:13
Kim
habe mal wieder ein Frage.
Ich möchte gerne eine Fehlermeldung mithilfe eines Makros bauen.
Überprüft werden soll eine Zelle in einem bestimmten Sheet. Sobald in der Zelle keine 0 steht, dann soll beim Schliessen der Datei eine Fehlermeldung erscheinen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Sheets("Tabelle1").Range("O21").Select = "0" Then
If MsgBox("Error: Please check the month!", vbOKCancel) = vbCancel Then
Cancel = True
End If
End If
End Sub
Leider funktioniert das nicht so ganz. Selbst wenn eine 0 in der Zelle steht, bekomme ich eine Fehlermeldung.
Würde mich freuen, wenn mir jemand helfen könnte!
Danke,
Kim