wie kann man erreichen, dass bei einem Zellwert der Zelle AO24 kleiner Null, eine Meldung mit folgendem Text angezeigt wird:
Kein Urlaub mehr vorhanden!
Gruß
mike49
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AO24")) Then
If Range("AO24").Value < 0 Then
MsgBox "Kein Urlaub mehr vorhanden!"
Else: End If
Else: End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "AO24" Then Exit Sub
If Range("AO23").Value < 0 Then MsgBox "kein urlaub mehr"
End Sub