was ist falsch, wenn ich mit der unten folgenden Syntax ein Workbook nach einem bestimmten Chart durchsuche ?
Sub IndiDel()
Dim ShName As String
Dim WSheet As Chart
'Set WSheet = Chart
'On Error GoTo E:
ShName = ActiveChart.Name
For Each WSheet In ActiveWorkbook
If WSheet.Visible = True Then
If WSheet.Name = ShName & "*" Then
WSheet.Delete
End If
End If
Next WSheet
E: ShName = MsgBox(Prompt:="Es muss ein Chart ausgewählt sein !!", Buttons:=vbCritical)
End Sub
Wenn ich die Zeile mit der Set-Anweisung auskommentiere bekomme ich den Laufzeitfehler 438 "Objekt unterstützt die Eigenschaft oder Methode nicht"
Wenn ich die genannte Anweisung nicht auskommentiere heißt es: "Cariable nicht definiert" und das Wort "Chart" ist markiert.
Mit der Error-Anweisung kann es nichts zu tun haben, denn die ist auskommentiert.
Vielen Dank für Eure Hilfe, denn ich komme gerade nicht weiter