Grafiek verwijderen afhankelijk van waarde in cel

[ouweham]

Goedemorgen,

ik heb een vraag over het maken van een macro binnen VB Excel voor het verwijderen van een grafiek afhankelijk van een bepaalde waarde in een cel.

Situatie: ik heb op een werkblad 3 grafieken. Afhankelijk van een waarde in een cel, wil ik 1 van de grafieken verwijderen. De andere twee moeten blijven staan.

De code die ik tot nu toe heb is:

Sub verwijderen_grafiek()

Dim werkblad_item As Worksheet
Dim grafiek As ChartObject
Dim antwoord As String

antwoord = Range("N7")
If antwoord = "Ja" Then
For Each werkblad_item In ThisWorkbook.Worksheets
For Each grafiek In werkblad_item.ChartObjects
grafiek.Delete
Next
Next
End If
End Sub

Als in N7 inderdaad "Ja" staat, dan worden alle grafieken op dat werkblad verwijdert. Het moet nu zo zijn dat hij maar 1 van de drie verwijdert.

WIE kan mij helpen? Redelijk spoed zit erachter. Alvast bedankt.

 

[Wigi]

Sub verwijderen_grafiek()

    Dim antwoord As String

    antwoord = Range("N7")
    
    If antwoord = "Ja" Then ActiveSheet.ChartObjects("Chart 1").Delete
    
End Sub

Wigi

PS: graag code tags gebruiken als je hier code neerzet. Dat is het # icoontje.

 

[ouweham]

Dank

Sub verwijderen_grafiek()

    Dim antwoord As String

    antwoord = Range("N7")
    
    If antwoord = "Ja" Then ActiveSheet.ChartObjects("Chart 1").Delete
    
End Sub

Wigi

PS: graag code tags gebruiken als je hier code neerzet. Dat is het # icoontje.

 

[Wigi]

Graag nog even de vraag op opgelost zetten aub.

 

[ouweham]

helaas werkt de code niet, de macro reageert niet, maar geeft ook geen foutmelding

Graag nog even de vraag op opgelost zetten aub.

 

[Wigi]

Staat er Ja in N7?

 

[ouweham]

Uiteraard.

kan je me nog een keer de volledige code sturen?

dank.

Staat er Ja in N7?

 

[Wigi]

Die heb je al