Sub Test()
Dim Bereich As Range
Dim VergleichsBereich As Range
Dim Zelle As Range
Dim Vergleichstyp As Integer
Set VergleichsBereich = ActiveSheet.Range("M11")
Vergleichstyp = VarType(VergleichsBereich.Value)
Rem ich lege den Bereich fest (Beginn ab Zeile 10) wo Spalte (I = 9) gefüllt
Set Bereich = Range(Cells(10, 9), Cells(Cells(Rows.Count, 9).End(xlUp).Row, 9))
For Each Zelle In Bereich
If Zelle.Value < VergleichsBereich.Value And _
VarType(Zelle.Value) = Vergleichstyp And _
TypeName(Zelle.Offset(0, 2).Value) = "Empty" Then _
Range(Zelle.Offset(0, -8), Zelle.Offset(0, 1)).ClearContents
Next Zelle
End Sub