Grafiek lege reeks/legendagegevens niet mee nemen in de grafiek

[jos88]

Hallo,
Ik ben al een tijdje bezig met het zoeken naar een oplossing, alleen kom ik telkens op een dood spoor.

Ik heb een voorbeeld bijgevoegd. het gaat er hier om dat er 1 materiaal kan worden gebruikt. maar ook 5 nu is het zo
wanneer je er maar 1 invoerd hij ze wel alle 5 in de grafiek mee neemt.
Ik zou graag willlen dat de grafiek zich dan automatisch aanpast wanneer er maar 1 materiaal ingevoerd wordt.

Ik hoop dat ik het een beetje duidelijk heb geformuleerd.

 

[jos88]

deze vraag kan gesloten worden excuses voor het ongemak heb het inmiddels als uitgevolgeld.
door de rijen automatisch te laten verbergen doormiddel van een macro Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b13].Value = "x" Then
Rows("13").EntireRow.Hidden = True
Else
Rows("13").EntireRow.Hidden = False
End If
If [b13].Value = "x" Then
Rows("14").EntireRow.Hidden = True
Else
Rows("14").EntireRow.Hidden = False
End If
If [b15].Value = "x" Then
Rows("15").EntireRow.Hidden = True
Else
Rows("15").EntireRow.Hidden = False
End If
If [b15].Value = "x" Then
Rows("16").EntireRow.Hidden = True
Else
Rows("16").EntireRow.Hidden = False
End If
If [b17].Value = "x" Then
Rows("17").EntireRow.Hidden = True
Else
Rows("17").EntireRow.Hidden = False
End If
If [b17].Value = "x" Then
Rows("18").EntireRow.Hidden = True
Else
Rows("18").EntireRow.Hidden = False
End If
If [b19].Value = "x" Then
Rows("19").EntireRow.Hidden = True
Else
Rows("19").EntireRow.Hidden = False
End If
If [b19].Value = "x" Then
Rows("20").EntireRow.Hidden = True
Else
Rows("20").EntireRow.Hidden = False
End If
End Sub