Commandbutton finden

Hallo Zusammen,

ich hab ein Arbeitsmappe in der sich sehr viele Tabellenblätter befinden.
Jetzt würde ich gern alle Arbeitsblätter durchsuchen, dessen Name mit "M_FL" anfängt, ob sich darauf ein Commandbutton mit dem Namen "Click_Print" oder "Click_Back_to" befindet. leider weiß ich nicht, wie ich das anstellen kann.
Diese sollen dann ausgeblendet werden.

Die meisten Arbeitsblätter werden hieraus geblendet sein und dies soll nach Ausblenden der Commandbutton auch so bleiben.
Ich hab es mit folgendem Makro probiert, (wenn ich den Namen der Tabellenblätter nicht berücksichtige und über alle suche) aber bei TypeOf hängt das Makro. Ich befürchte das ich hier was falsch deklariert habe, weiß aber nicht wie ich es richtig ist.

Vielleicht könnte mir jemand hier weiterhelfen.

Option Explicit



Sub HideCommanbutton()

Dim ws As Worksheet

Dim objOLEObject As OLEObject

Dim wsVisibleState As XlSheetVisibility

Dim targetName As String



targetName = "Click_Prnt"



For Each ws In ThisWorkbook.Worksheets



wsVisibleState = ws.Visible



ws.Visible = xlSheetVisible



For Each objOLEObject In ws.OLEObjects



If TypeOf objOLEObject.Object Is MSForms.CommandButton Then

    If InStr(objOLEObject.Name, targetName) > 0 Then

    objOLEObject.Visible = False



    End If

End If

Next objOLEObject



ws.Visible = wsVisibleState

Next ws

End Sub

Danke schonmal im Voraus.

VG Sandra

Hallo Sandra,

wenn es nur um den Namen des jeweiligen Controls und nicht ums Caption (lesbarer Text im Button) geht, wäre das so möglich:



Option Explicit



Sub HideCommanbutton()

    Dim ws As Worksheet

    Dim oleBtn As OLEObject

    Dim wsVisibleState As XlSheetVisibility

    Dim i&

    

    For Each ws In ThisWorkbook.Worksheets

        If InStr(1, ws.Name, "M_FL", vbTextCompare) > 0 Then

            wsVisibleState = ws.Visible

            ws.Visible = xlSheetVisible

            For Each oleBtn In ws.OLEObjects

                If oleBtn.Name = "Click_Print" Or oleBtn.Name = "Click_Back_to" Then

                    MsgBox "Es existiert ein Button mit dem Namen: " & ws.Name

                    i = i + 1

                End If

            Next oleBtn

            ws.Visible = wsVisibleState

        End If

    Next ws

    If i = 0 Then MsgBox "kein Button gefunden"

End Sub

Gruß Uwe

Forumthread: Commandbutton finden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Commandbutton finden

Forumthread: Commandbutton finden

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread