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
|