[EXCEL VBA] if value = 0 then delete cell

[kjiratsiekoedel]

Ik ben nog niet erg bedreven met VBA en ben nog erg mijn weg erin aan het vinden. Ik laat een macro berekeningen maken van verschillende lijsten. Die lijsten zijn niet allemaal even lang (bv. maar tot regel 5), maar nooit meer dan 10 rijen. De macro rekent nu altijd tot en met rij 11 uit.
Wat ik wil is dat hij de overbodig uitgerekende cellen wist. Die cellen zijn herkenbaar doordat de uitkomst 0 is.

De code ziet er nu zo uit:

code:

'dit deel maakt de berekening
Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]-RC[-10]"
'dit deel breidt de berekening uit naar rij 11
    Selection.AutoFill Destination:=Range("Q2:Q11"), Type:=xlFillDefault
'nu maak ik een selectie van het deel waar misschien teveel is berekend
    Range("Q3:Q11").Select
'en nu wil is van de selectie alle cellen die 0 zijn wissen
    If ActiveCell.Value = "0" Then ActiveCell.Delete

Deze code doet alleen niets.

Voor een duidelijker voorbeeld:

[wortelsoft]

Je kunt de berekening alleen laten uitvoeren als er ook daadwerkelijk iets te berekenen valt.
Zoek maar eens op: If Then Else

[kjiratsiekoedel]

Ik heb 'm!
Sorry dat ik 'm alweer zo snel heb opgelost, maar ik zit hier al wel heel de ochtend aan, vandaar.

code:

    Set Rng = Range("T3:T11")
    For Each cell In Rng
    If cell.Value = "400" Then
    cell.Value = ""
    End If
    Next cell