Office: (Office 2010) Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen?

Kossy · 14. Juni 2011

Hallo !

Ich habe u. U. einen Button auf einem meiner Arbeitsblätter abgelegt und ich möchte nun automatisch per VBA abprüfen, ob dieser existiert (u.U. kann er auch nicht auf dem Arbeitsblatt sichtbar sein). Es handelt sich hierbei um einen Formularbutton und kein Active X Steuerelement.

Ich kann das das prüfen und wenn dieser Button existier, dann soll er automatisch gelöscht werden.

Danke schön für die Hilfe !

Grüße
Kossy

:)

Beverly · 15. Juni 2011

Hi Kossy,
Code:

Sub SchalterVorhanden()
Dim cmdButton As Button
For Each cmdButton In ActiveSheet.Buttons
MsgBox cmdButton.Name
Next cmdButton
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kossy · 15. Juni 2011

Hi Beverly !

Hab vielen Dank !

Eine Frage habe ich nochmal. Der Button hat einen ganz bestimmten Namen. Könnte man den Code auch so modifizieren, dass nur der Button mit dem entsprechenden Namen gelöscht wird und alle anderen Buttons unberührt bleiben? (Hatte ich eben so nicht gefragt, würde mich aber trotzdem interessieren)

Danke für die Hilfe !

Grüße
Kossy

Beverly · 15. Juni 2011

Hi Kossy,
Code:

ActiveSheet.Buttons("Schaltfläche 4").Delete
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kossy · 15. Juni 2011

Hi Beverly !

Vielen Dank !

Vielleicht noch eine letzte Frage zu dem Thema, dann sollte auch gut sein.

Wie kann ich dann vorher noch abprüfen, ob dieser Button mit dem Namen XYZ überhaupt exisitiert (z.B. in einem If Case oder so)?

Heb vielen Dank für die Hilfe !

Grüße
Kossy

Beverly · 16. Juni 2011

Hi Kossy,

dazu kannst du den Code aus meinem 1. Beitrag verwenden und eine Prüfung einbauen:
Code:

Sub SchalterVorhanden()
Dim cmdButton As Button
Dim blnVorhanden As Boolean
For Each cmdButton In ActiveSheet.Buttons
If cmdButton.Name = "Button 2" Then
blnVorhanden = True
Exit For
End If
Next cmdButton
If blnVorhanden Then MsgBox "Schalter 2 vorhanden"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Einfacher geht es mit dem folgenden Code:
Code:

Sub SchalterVorhanden2()
Dim cmdButton As Button
On Error Resume Next
Set cmdButton = ActiveSheet.Buttons("Schaltfläche 2")
On Error GoTo 0
If cmdButton Is Nothing Then MsgBox "Schalter nicht vorhanden"
Set cmdButton = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kossy · 16. Juni 2011

Hallo Beverly !

Perfekt, hab vielen Dank !

Grüße
Kossy

Office: (Office 2010) Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen?

Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen?

Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen?

Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen?

Wie Überprüfen, ob Button vorhanden ist und diesen ggf. dann löschen? - Similar Threads - Überprüfen Button vorhanden

Dateien vorab auf Serienbrief überprüfen

Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist

1.Excel soll 100 Excel-Tabellen überprüfen

Datum & Uhrzeit Überprüfung

Mehrere Zellen auf Inhalt überprüfen

Office 365 Rechtschreibung überprüfen

Zeiterfassung und Überprüfung arbeitszeit erfüllt