Prüfen ob ein Diagramm vorhanden ist 01.06.2002
 

Vor dem Zugriff auf ein Diagramm sollte geprüft werden,
ob dieses vorhanden ist.
So vermeidet man Laufzeitfehler.

Function Existiert_Diagramm(Diagrammname) As Boolean
    Existiert_Diagramm = False
    Set SH = ActiveSheet
    For x = 1 To SH.ChartObjects.Count
        If UCase(Diagrammname) = UCase(SH.ChartObjects(x).Name) Then
            Existiert_Diagramm = True
            Exit Function
        End If
    Next x
End Function