AW: Schaltflächen mittels Makro entfernen
15.02.2023 08:41:07
ChrisL
Hi
Ich habe mal ein wenig mit dem Roboter geplaudert (ChatGPT im Forumstitel). Dies unter der Annahme, dass du gleich alle Buttons rausputzen möchtest.
excel vba alle befehlsschaltflächen in allen tabellenblättern einer datei entfernen
Um alle Befehlsschaltflächen in allen Tabellenblättern einer Excel-Datei mit VBA zu entfernen, können Sie den folgenden Code verwenden:
Sub RemoveAllButtons()
Dim ws As Worksheet
Dim btn As Button
'Schleife durch jedes Tabellenblatt
For Each ws In ThisWorkbook.Worksheets
'Schleife durch jede Schaltfläche in dem Tabellenblatt
For Each btn In ws.Buttons
btn.Delete 'Löschen Sie die Schaltfläche
Next btn
Next ws
End Sub
Dieser Code verwendet eine verschachtelte Schleife, um jedes Tabellenblatt in der Arbeitsmappe zu durchlaufen und dann jede Schaltfläche in jedem Tabellenblatt zu durchlaufen und zu löschen.
Sie können diesen Code ausführen, indem Sie ihn in ein VBA-Modul in Ihrer Excel-Datei einfügen und dann die Schaltfläche "Ausführen" oder die Tastenkombination "F5" drücken. Beachten Sie jedoch, dass das Entfernen von Schaltflächen irreversible ist, daher sollten Sie sicherstellen, dass Sie eine Sicherungskopie Ihrer Datei haben, bevor Sie diesen Code ausführen.
wie lautet der code, wenn es sich um schaltflächen vom typ formular handelt
Wenn Sie Schaltflächen vom Typ Formular-Steuerelement entfernen möchten, können Sie den folgenden Code verwenden:
Sub RemoveAllFormButtons()
Dim ws As Worksheet
Dim btn As Object
'Schleife durch jedes Tabellenblatt
For Each ws In ThisWorkbook.Worksheets
'Schleife durch jede Schaltfläche vom Typ Formular-Steuerelement in dem Tabellenblatt
For Each btn In ws.Shapes
If btn.Type = msoFormControl Then 'Stellen Sie sicher, dass es sich um ein Formular-Steuerelement handelt
btn.Delete 'Löschen Sie das Formular-Steuerelement
End If
Next btn
Next ws
End Sub
Dieser Code verwendet auch eine verschachtelte Schleife, um jedes Tabellenblatt in der Arbeitsmappe zu durchlaufen und dann jede Schaltfläche vom Typ Formular-Steuerelement in jedem Tabellenblatt zu durchlaufen und zu löschen.
Beachten Sie, dass dieser Code nur Schaltflächen vom Typ Formular-Steuerelement löscht. Wenn Ihre Arbeitsmappe auch ActiveX-Steuerelemente enthält, müssen Sie einen separaten Code schreiben, um diese zu entfernen.
cu
Chris