MFG Klaus
VBA-Code: |
Private Sub Worksheet_Change(ByVal Target As Range) 'Code in das entsprechende Tabellenblatt! If Not Intersect(Target, [A8]) Is Nothing And Target.Count = 1 Then If Target > 7.9 Then [C5:D5].ClearContents End If End Sub Gruss Jürgen |