Button nach kopieren löschen

04/03/2010 - 21:56 von Daniel Frei | Report spam
Hallo zusammen

Ich habe folgende Frage:
Mittels VBA kopiere ich ein Sheet an die letzte Stelle. Im Sheet habe ich 3
Buttons, welche nach dem Kopieren nicht mehr benötigt werden. Mein
aufgezeichnetes Makro sieht wie folgt aus:

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

Da jedoch die Buttons unter Umstànden Variable Namen haben, bekomme ich
schon ein Problem mit meinem Makro. Gibt es ein Code, der kein Button-Name
benötigt. Ich möchte ja alle Buttons in diesem Sheet löschen.

Danke schon mal für eure Hilfe

Gruss Daniel
*********************************
Nur wer fragt kommt im Leben weiter.
Ein kluger Mann macht nicht alle Fehler selbst. Er gibt auch anderen eine
Chance. --
"Winston Churchill"
_______________________
Win 7
Office 2007 Enterprise
 

Lesen sie die antworten

#1 Peter Schleif
05/03/2010 - 07:34 | Warnen spam
Daniel Frei schrieb am 04.03.2010 21:56 Uhr:

Mittels VBA kopiere ich ein Sheet an die letzte Stelle. Im Sheet habe ich 3
Buttons, welche nach dem Kopieren nicht mehr benötigt werden.
ActiveSheet.Shapes("Button 2").Select
Selection.Delete
Da jedoch die Buttons unter Umstànden Variable Namen haben, bekomme ich
schon ein Problem mit meinem Makro. Gibt es ein Code, der kein Button-Name
benötigt. Ich möchte ja alle Buttons in diesem Sheet löschen.



Um alle Shapes im aktiven Blatt zu löschen:

Sub ShapeDelete()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
shp.Delete
Next
End Sub


Wenn Du dich auf Formular-Shapes (z.B. "Button 2") beschrànken möchtest,
um nicht versehentlich Steuerelement-Toolbox-Shapes (z.B.
"CommandButton1") zu löschen:

If shp.Type = 8 Then shp.Delete


Wenn Du vorsichtshalber auch noch prüfen möchtest, ob der Name
tatsàchlich zu einem Button passt:

If shp.Type = 8 And Left(shp.Name, 6) = "Button" Then shp.Delete

Peter

Ähnliche fragen