Objekte löschen = Laufzeitfehler
03.03.2003 13:14:20
Wolfgang
ich erhalte den Fehler '429' Objekterstellung durch ActiveX-Komponenten nicht möglich.
Was ist verkehrt an meinem Makro?
Habe es mit 1.) und 2.) versucht....
1.)If ShapeExists(Name) = True Then ActiveSheet.Shapes(Name).Delete
2.)If ShapeExists(Name) Then ActiveSheet.Shapes(Name).Delete
Private Function ShapeExists(Name As String) As Boolean
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
Könnt Ihr mir da bitte weiterhelfen?´
Gruß
Wolfgang
Anzeige