ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean
Dim Bild As Shape
On Error Resume Next
Set Bild = Blatt.Shapes(shpName)
shape_Exists = Err = 0
Err.Clear
On Error GoTo 0
End Function
Normalerweise sollte der Fehler, wenn "shpName" nicht vorhanden ist, abgefangen werden.
Dies funktioniert auch auf verschiedenen PCs nur auf einem speziellen PC (Office 2003) nicht!
Die anderen PCs haben den gleichen SW-Stand.
Gibt es einen speziellen Schalter, der an diesem PC ausgeschaltet sein könnte?
Danke für Eure Hilfe.
Gruß Günter