ich möchte beim erreichen eines bestimmten Zellwertes einen Warnton erhalten.
Vielen Dank für eure Hilfe
Markus
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value > 12 Then
For I = 1 To 5
Beep
Next
'oder
MsgBox ("höher als 12")
End If
End Sub