Vba: inhoud wissen als cel een specifieke waarde bevat

U kunt de volgende basissyntaxis gebruiken om de inhoud van elke cel in een Excel-werkblad te wissen die gelijk is aan een specifieke waarde:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Deze specifieke macro wist de inhoud van elke cel in het bereik A2:A11 , wat gelijk is aan „Mavs“.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: gebruik VBA om inhoud te wissen als de cel een specifieke waarde bevat

Laten we zeggen dat we een Excel-blad hebben met informatie over verschillende basketbalspelers:

Laten we zeggen dat we de inhoud van elke cel in de Team- kolom gelijk aan „Mavs“ willen wissen.

We kunnen hiervoor de volgende macro maken:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Zodra deze macro is uitgevoerd, worden alle cellen met de waarde „Mavs“ in de kolom Team gewist:

Als u in plaats daarvan alle cellen in elke rij met de waarde „Mavs“ in de kolom Team wilt wissen, kunt u de volgende syntaxis gebruiken:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

Zodra we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat alle cellen in elke rij met „Mavs“ in de kolom Team zijn gewist.

Opmerking : u kunt hier de volledige documentatie van de ClearContents- methode in VBA vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: Hoe de laatst gebruikte kolom te vinden
VBA: Hoe alle bladen weer te geven