Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$39" Then 'welche Zelle wurde gerade geändert, sodass das Ereignis "Change" ausgelöst wurde?
If Range("C39").Value 10 Then 'Werte in Zelle C39 prüfen
Application.EnableEvents = False
Range("B23").ClearContents
Application.EnableEvents = True
End If
End If
End Sub