Eine kleine Frage...



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Eine kleine Frage...
von: Chris
Geschrieben am: 23.05.2002 - 13:54:56

Hallo,

ich hab ein kleines Problem.

mit

ActiveSheet.Shapes("Button 1").Select
Selection.Delete

möchte ich einen Button auf meinem Arbeitsblatt löschen.
Da es aber sein kann, daß "Button 1" gar nicht existiert, möchte ich eine Abfrage starten - wenn Button 1 existiert, dann Delete, sonst weiterspringen.

Wie kann ich so was machen?

Danke & Gruß
Christian


nach oben   nach unten

Re: Eine kleine Frage...
von: MRR
Geschrieben am: 23.05.2002 - 14:50:24

Hi Christian,
falls Du keine sonstige Fehlerbehandlung in Deinem Makro hast, würde ich es wie folgt lösen:

On Error Resume Next
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
On Error Goto 0

HTH, Matthias
nach oben   nach unten

Re: Eine kleine Frage...
von: Bonte
Geschrieben am: 23.05.2002 - 14:58:32

Hallo Christian,

probier's mal so:

On Error Goto Fehler
ActiveSheet.Shapes("Button1").Select
Selection.Delete
Fehler:
exit sub


Gruß
Bonte

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Combobox"