Hallo Leonard,

versuch doch mal so:

Private Sub Worksheet_Change(ByVal Target As Range) 

if target.cells.count > 1 then exit sub

if Target.column = 4 then

    if target.value > 0 then
        cells(target.row, 1).clearcontents
    endif
endif

end sub

Ich weiß ja nicht, wie deine Tabelle aufgebaut ist: das Worksheet-Change event wird ausgelöst, wenn du von Hand oder mit VBA einen Zellwert in diesem Tabellenblatt änderst. Ändert sich ein Formelergebnis, dann wird das WS_Change-Event nicht ausgelöst.

Im Klartext: Obiger Code macht nur dann Sinn, wenn in Spalte D keine Formeln stehen.

Grüße, Ulrich