Sub WerteLoeschen()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("C2:I60").Cells
If Not c.HasFormula Then c.ClearContents
Next c
Application.ScreenUpdating = True
End Sub
Sub Loeschen_ohne_Formeln()
On Error Resume Next
[C2:I60].SpecialCells(xlCellTypeConstants, 3).ClearContents
End Sub