ich habe folgenden Code, um Diagramme ein- oder auszublenden:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("L2") = "ja" Then
ActiveSheet.ChartObjects("Diagramm 2").Visible = True
Else
ActiveSheet.ChartObjects("Diagramm 2").Visible = False
End If
If Range("L3") = "ja" Then
ActiveSheet.ChartObjects("Diagramm 7").Visible = True
Else
ActiveSheet.ChartObjects("Diagramm 7").Visible = False
End If
End Sub
Jetzt will ich den Code auf bis zu 100 Diagramme ausweiten. Kann ich das nicht irgendwie mit einer Schleife oder so machen? Sonst habe ich ja 100x die IF-THEN-ELSE-Geschichte. Leider reichen meine VBA-Kenntnisse nicht so weit...
Danke für eure Tipps!
Gruß,
Peter