Datalabels in grafieken

[AABE]

Geacht Forum,

ik gebruik onderstaande code om de link naar de datasources van grafieken te verwijderen.
Dit gaat prima..

Als er echter voor een bepaalde periode geen data voorhanden is wordt de datalabel #N/A.
Ik zou dit dan graag leeg hebben.

Weten jullie een oplossing?

Bedankt,

mvg,

Aat

Sub DelChartLinkData()
    Dim mySeries As Series
    Dim sChtName As String
    Dim x As Long
    
    On Error Resume Next
    For x = 1 To 10
        ActiveSheet.ChartObjects("Chart " & x).Activate
        sChtName = ActiveChart.Name
        ActiveChart.ChartArea.Select
        
        If TypeName(Selection) = "ChartArea" Then
            'Loop through all series in active chart
            For Each mySeries In ActiveChart.SeriesCollection
            'Convert X and Y Values to arrays of values
                mySeries.DataLabels.NumberFormat = mySeries.DataLabels.NumberFormat
                mySeries.XValues = mySeries.XValues
                mySeries.Values = mySeries.Values
                mySeries.Name = mySeries.Name
            Next mySeries
        End If
    Next x
End Sub

 

[Dirk Vissers]

Misschien de functie ISFOUT()

Ik ben niet goed in visual basic, maar moet volgens mij te doen zijn.