Excel 2013 bei bestimmten TEXT text ausblenden

Sub Test()
If (Range("ZELLE").Value = "Test") Then  
 Range("ZELLE").ClearContents  
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 'Target wird auf den sich überschneidenden Bereich gesetzt, um bei  
 'Mehrfachmarkierungen die ausserhalb des eingeschränkten Bereiches  
 'liegenden Zellen nicht ebenfalls zu verändern  

 'Hier den Bereich anpassen  
     Set Target = Application.Intersect(Target, Range("ZELLE"))  

     'Wenn nicht innerhalb des Bereiches wird die Prozedur verlassen  
     If Target Is Nothing Then Exit Sub

     'Errorhandling aktivieren, um im Falle eines Fehlers die Ereignisse  
     'am Ende wieder zu aktivieren  
     On Error GoTo ErrorHandler

     'Ereignisse ausschalten, um das Change-Ereignis nicht erneut auszulösen  
     Application.EnableEvents = False

     'Eine Range-Variable deklarieren  
     Dim rngZelle As Range

     'jede Zelle innerhalb des Target-Bereiches durchlaufen  
     For Each rngZelle In Target

     
     'Dein Code zur Bearbeitung der Zelle  
     If (Range("ZELLE").Value = "Test") Then  
        Range("ZELLE").ClearContents  
     End If
     

     Next rngZelle
ErrorHandler:
     Application.EnableEvents = True   'Ereignisse wieder einschalten  
 End Sub