Fehlerbehandlung
20.10.2005 17:52:47
Peter
Ich habe folgenden Code:
...
On Error Resume Next
ActiveSheet.Shapes("Picture 18").Select
Selection.Delete
ActiveSheet.Shapes("Picture 17").Select
Selection.Delete
ActiveSheet.Shapes("Picture 16").Select
end sub
Diese Fehlerbehandlung ist natürlich nicht brauchbar, da mit Selection.Delete immer etwas gelöscht wird, was nicht gewollt ist.
Kann ich gleich noch eine Zeile des Codes überspringen?
Danke, Peter