Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
Danke Euch beiden, klappt prima! oT
20.06.2004 19:06:55
Sabine

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige