Function auswerten
28.02.2003 11:43:50
Wolfgang
Wie werte ich folgenden Functionsaufruf aus, damit ich feststellen kann ob das Ergebnis true oder false ist?
Private Function ShapeExists(Name As String)
Dim sh As Shape
On Error Resume Next
Set sh = ActiveSheet.Shapes(Name)
If Err > 0 Or sh Is Nothing Then
Err.Clear
ShapeExists = False
Else
ShapeExists = True
End If
On Error GoTo 0
End Function
Mit meiner Anfängeridee haut das leider nicht hin....
If ShapeExists(Name) = True Then ActiveSheet.Shapes("Organigramm 1").Delete
Vielen Dank für einen Tip.
Gruß
Wolfgang
Anzeige