Titel x-as van grafiek veranderen naar gelang cell inhoud

[Dolfke]

Hoi allemaal,

Is het mogelijk om zonder vba de titel van de x-as in je grafiek te veranderen afhankelijk van een cell inhoud ?


Nu gebruik ik onderstaande code omdat ik geen oplossing heb zonder vba

Private Sub Worksheet_change(ByVal Target As Range)

    If Intersect(Target, [D2]) Is Nothing Then Exit Sub
    Select Case Target
        Case "A"
        ActiveSheet.ChartObjects("Chart 7").Activate
        ActiveChart.Axes(xlCategory).AxisTitle.Characters.Text = "Mileage [A]"
        Case "B"
        ActiveSheet.ChartObjects("Chart 7").Activate
        ActiveChart.Axes(xlCategory).AxisTitle.Characters.Text = "Mileage [B]"
    End Select
    Range("D2").Select
End Sub

Bedankt !

 

[Wigi]

Dat kan!

Klik de titel aan, druk = toets, wijs met de muis de juiste cel aan, druk Enter.

Wigi

 

[Dolfke]

Hallo Wigi,


Bedankt ! Soms gebruikt een mens iets te snel vba en zeker als je vba gewent zijt.

Kun soms veel oplossen zonder vba, maar gemoet het dan maar weten .:thumb:


Groetjes