On Error goto funktioniert nicht
02.06.2004 21:35:32
Peter
On Error GoTo KeinText7 funktioniert nicht. Statt den Sprung zu "KeinText7" auszuführen, wenn "Text 7" nicht vorhanden ist, kommt die Meldung, dass das Element nicht vorhanden ist.
Wer kann mir helfen?
Sub DATA_LOESCHEN()
Application.EnableCancelKey = xlDisabled
Application.ScreenUpdating = False
On Error GoTo KeinText6
ActiveSheet.Shapes("Text 6").Select
Selection.Delete
KeinText6:
On Error GoTo KeinText7
ActiveSheet.Shapes("Text 7").Select
Selection.Delete
KeinText7:
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Peter
Anzeige