Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1820to1824
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
Inhaltsverzeichnis

alle schaltfllächen löschen

alle schaltfllächen löschen
28.03.2021 13:01:13
Ulrich
Hallo zusammen,
ich habe eine Frage.
Mit folgendem Code lösche ich Schaltflächen .
Wie müsste ich diesen code ändern das alle Schaltflächen in der ganzen Arbeitsmappe gelöscht werden?
Danke für eure Hilfe
Gruß Ulli
Sub Clear_ButtonsActiveSheet()
Dim I As Long
Dim xOLE As Object
On Error Resume Next
ActiveSheet.Buttons.Delete
For Each xOLE In ActiveSheet.OLEObjects
If TypeName(xOLE.Object) = "CommandButton" Then
xOLE.Delete
End If
Next
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: alle schaltfllächen löschen
28.03.2021 13:10:43
ralf_b

Sub Clear_ButtonsActiveSheet()
Dim I As Long
dim ws as Worksheet
Dim xOLE As Object
On Error Resume Next
for each ws in Worksheets
ws.Buttons.Delete
For Each xOLE In ws.OLEObjects
If TypeName(xOLE.Object) = "CommandButton" Then
xOLE.Delete
End If
Next
next
End Sub


AW: alle schaltfllächen löschen
28.03.2021 13:24:59
Ulrich
Hallo Ralf,
einwandfrei, ganz herzlichen Dank!
Gruß Ulli
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige