Code voor automatisch cel verwijderen

[BD55]

Hallo allemaal!

Ik heb verschillende forums gelezen maar kom er nog altijd niet aan uit.

Ik heb namelijk een formule/code nodig voor het volgende:

Als ik in cel H7 een " x " plaats, wil ik dat de cellen D7 en G7 automatisch leeg gemaakt wordt.

Kunnen jullie mij hierbij verder helpen aub?

Alvast bedankt!

groetjes

Bea

 

[edmoor]

Zoiets:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "H7" Then
        If Target = "x" Then
            Range("D7").ClearContents
            Range("G7").ClearContents
        End If
    End If
End Sub

 

[BD55]

Ik krijg het niet uitgevoerd met VBA-editor. Begrijp er ook niet veel van. Helaas

Bedankt voor uw snelle respons!

 

[edmoor]

Het is een event macro, die kan je niet zomaar in de VBA-Editor uitvoeren.
Daarom is het zo handig om altijd een voorbeeld documentje te plaatsen.

 

[BD55]

Ik heb een klein voorbeeld van mijn Excel bestand toegevoegd

 

[edmoor]

Bij deze.
De code zit achter Blad1:

 

[BD55]

Het is gelukt! Super bedankt!!