Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Commandbutton löschen

Forumthread: Commandbutton löschen

Commandbutton löschen
20.06.2004 18:29:06
Sabine
Hallo Excelianer,
wie lösche ich am schnellsten und effektivsten alle Commandbutton einer Arbeitsmappe, die auf verschiedenen Tabellenblättern angeordnet sind, nicht in UF.

Danke schon mal im voraus!
Sabine
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton löschen
20.06.2004 18:58:47
NE
Hi Sabine,
kommt bissel auf die Namen derer an, versuche es mal so:

Sub x()
Dim i%, sh As Shape
For i = 1 To ActiveWorkbook.Sheets.Count
For Each sh In Sheets(i).Shapes
If sh.Name Like "CommandButton*" Then sh.Delete
Next
Next
End Sub

Man könnte auch auf sh.Type = msoOlecontrolObject prüfen,
da nimmt er aber gleich auch noch einiges andres mit.
Gruss Nancy
Anzeige
AW: Commandbutton löschen
20.06.2004 19:00:59
K.Rola
Hallo,
Option Explicit

Sub CB_loeschen()
Dim obj As Object, ws As Worksheet
For Each ws In Worksheets
For Each obj In ws.OLEObjects
If obj.progID = "Forms.CommandButton.1" Then
obj.Delete
End If
Next
Next
End Sub

Gruß K.Rola
Danke Euch beiden, klappt prima! oT
20.06.2004 19:06:55
Sabine
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige