Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CommandButtons löschen

CommandButtons löschen
27.02.2003 16:45:58
frankH
Hallo Ihr Wissenden,

wie kann ich alle CommandButton, die in einer Excel-Tabelle sind, auf einmal löschen?

for each button in ???
button.delete
next

Oder gaanz anders?

Danke im Vorraus
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: CommandButtons löschen
27.02.2003 17:08:31
Thomas Risi

Hallo Frank

Versuch's mal etwa so ...



Option Explicit


Const CHECKBOX = "Forms.CheckBox.1"
Const COMBOBOX = "Forms.ComboBox.1"
Const COMMANDBUTTON = "Forms.CommandButton.1"
Const IMAGE = "Forms.Image.1"
Const LABEL = "Forms.Label.1"
Const LISTBOX = "Forms.ListBox.1"
Const OPTIONBUTTON = "Forms.OptionButton.1"
Const SCROLLBAR = "Forms.ScrollBar.1"
Const SPINBUTTON = "Forms.SpinButton.1"
Const TEXTBOX = "Forms.TextBox.1"
Const TOGGLEBUTTON = "Forms.ToggleButton.1"



Sub CBDelete()


    Dim i As Object


    For Each i In Worksheets("Tabelle1").OLEObjects

        If i.ProgId = COMMANDBUTTON Then

            i.Delete

        End If

    Next i

    

End Sub

 

Mehr Infos hierzu auf meiner Webseite.


Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige
Re: CommandButtons löschen
27.02.2003 17:43:16
frankH

Ja super - genau so wollte ich es haben.

Danke Thomas!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige