Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Buttons löschen

Alle Buttons löschen
11.10.2004 12:08:30
Andi
Hi,
habe eine Mappe mit über 130 Tabellenblättern. Jetzt möchte ich die darauf befindlichen Buttons per VBA löschen.
Wie geht das?
Gruß Andi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Buttons löschen
Ulf
Welche Art Button, Formular, Toolbox?
Ulf
AW: Alle Buttons löschen
11.10.2004 12:45:36
Andi
Hi,
Steuerelement-Toolbox. Wer kann helfen?
Gruß Andi
AW: Alle Buttons löschen
K.Rola
Hallo,
das geht so z.B.:
Option Explicit
Sub alle_weg()
Dim ws As Worksheet, j As Integer
For Each ws In Worksheets
For j = ws.OLEObjects.Count To 1 Step -1
If ws.OLEObjects(j).progID = "Forms.CommandButton.1" Then
ws.OLEObjects(j).Delete
End If
Next
Next
End Sub

Gruß K.Rola
Anzeige
AW: Alle Buttons löschen
11.10.2004 19:48:53
Andi
Danke.
;
Anzeige
Anzeige

Infobox / Tutorial

Alle Buttons in Excel löschen


Schritt-für-Schritt-Anleitung

Um alle Buttons in Excel zu löschen, insbesondere die aus der Steuerelement-Toolbox, kannst du ein VBA-Skript verwenden. Hier ist eine einfache Anleitung:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und dann auf Modul.
  3. Kopiere den folgenden Code in das Modul:

    Option Explicit
    Sub alle_weg()
       Dim ws As Worksheet, j As Integer
       For Each ws In Worksheets
           For j = ws.OLEObjects.Count To 1 Step -1
               If ws.OLEObjects(j).progID = "Forms.CommandButton.1" Then
                   ws.OLEObjects(j).Delete
               End If
           Next
       Next
    End Sub
  4. Führe das Skript aus:

    • Schließe den VBA-Editor.
    • Gehe zurück zu Excel und drücke ALT + F8, wähle alle_weg aus und klicke auf Ausführen.

Damit kannst du alle Steuerelemente – insbesondere Buttons – in deinen Excel-Tabellenblättern löschen.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004" – Dieser Fehler tritt auf, wenn das Skript nicht die richtigen Steuerelemente findet. Stelle sicher, dass du die richtigen Steuerelemente (z.B. Forms.CommandButton.1) verwendest.
  • Lösung: Überprüfe die Steuerelemente – Manchmal sind die Buttons von einer anderen Art (z.B. ActiveX). In diesem Fall musst du den progID anpassen.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch manuell alle Buttons löschen:

  1. Wechsle in den Entwurfsmodus:
    • Gehe zu Entwicklertools und aktiviere Entwurfsmodus.
  2. Markiere die Buttons:
    • Halte die STRG-Taste gedrückt und klicke auf jeden Button, den du löschen möchtest.
  3. Löschen:
    • Drücke die Entf-Taste auf deiner Tastatur.

Diese Methode ist weniger effizient, wenn du viele Buttons hast, aber sie ist einfach.


Praktische Beispiele

Stell dir vor, du hast in einer Mappe mit 130 Tabellenblättern viele Buttons. Mit dem oben genannten VBA-Skript kannst du schnell und effizient alle Buttons löschen. Wenn du nur bestimmte Buttons entfernen möchtest, kannst du den Code anpassen, um nur Buttons mit bestimmten Namen zu löschen.


Tipps für Profis

  • Sicherheitskopien: Erstelle immer eine Sicherung deiner Excel-Datei, bevor du Skripte ausführst, um versehentliches Löschen zu vermeiden.
  • Anpassungen: Du kannst den VBA-Code anpassen, um andere Steuerelemente zu löschen, indem du den progID änderst.
  • Schnellzugriffe: Speichere häufig verwendete VBA-Skripte in deiner persönlichen Makro-Arbeitsmappe für schnellen Zugriff.

FAQ: Häufige Fragen

1. Kann ich alle Steuerelemente in Excel löschen?
Ja, du kannst das Skript anpassen, um andere Steuerelemente zu löschen, indem du den progID änderst.

2. Funktioniert das Löschen von Buttons in allen Excel-Versionen?
Ja, das VBA-Skript sollte in allen modernen Excel-Versionen funktionieren, die VBA unterstützen (z.B. Excel 2010 und später).

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