Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1960to1964
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 Checkboxen löschen

alle Checkboxen löschen
21.01.2024 18:06:54
wolgertal
Hallo,

ich habe eine Frage.

Ich möchte alle Checkboxen im aktuellen Arbeitsblatt löschen.

Leider finde ich nur Cods welche die Checkboxen ein und ausschalten,

Kann mir einer helfen?

Vielen Dank vorab.

Gruß Ulli

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Checkboxen löschen
21.01.2024 18:17:48
RPP63
Moin!
Start → Bearbeiten → Suchen

Ich frage besser nicht, welchen Sinn diese Aktion hat …

Gruß Ralf
AW: alle Checkboxen löschen
21.01.2024 18:29:18
wolgertal
Hallo Ralf,

danke für diene Nachricht.

Ja das kenne ich, ich würde das Löschen aber gerne in einem Makro einbinden, da ich noch einiges andere zeitgleich löschen möchte.

Gruß Ulli
AW: alle Checkboxen löschen
21.01.2024 18:32:12
RPP63
Ohne Kenntnis der Datei:
Würde sich nicht eher eine "echte" Vorlage anbieten?
Noch etwas
21.01.2024 18:35:11
RPP63
Kennt Dein Excel 365 mittlerweile Einfügen → Kontrollkästchen?

Macht vieles leichter.
AW: alle Checkboxen löschen
21.01.2024 18:48:08
wolgertal
Diesen Code habe ich versucht, aber der Funktioniert nicht.

Gruß Ulli



Dim i As Integer, ws As Object

For Each ws In Worksheets ' checkboxen löschen
On Error Resume Next
For i = ws.CheckBoxes.Count To 1 Step -1
ws.CheckBoxes(i).Delete
Next
Next
Tolle Beispieldatei!
21.01.2024 18:48:24
RPP63
Egal:
Sub Controls_weg()

Dim ctrl As Shape
For Each ctrl In Tabelle1.Shapes
ctrl.Delete
Next
End Sub
AW: Tolle Beispieldatei!
21.01.2024 18:56:08
wolgertal
Hallo Ralf,

danke.

Der Vorschlag funktioniert.

Aber damit werde auch Formen, welche ich in der Datei habe , mit gelöscht.

Viele Grüße Ulli
Anzeige
AW: Tolle Beispieldatei!
21.01.2024 20:53:02
Kulo
Versuch mal:
ctrl.Delete
ersetzen mit
If ctrl.Name Like "Check*" Then ctrl.Delete
AW: Tolle Beispieldatei!
21.01.2024 21:13:31
wolgertal
Hallo Kulo,

danke, top! Funktioniert.

Viele Grüße Ulli

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige