Buttons aus und einblenden

Forumthread: Buttons aus und einblenden
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Buttons aus und einblenden

14.11.2025 11:23:59

NicoHendrik

Guten Morgen,
ich habe auf einen Tabellen Blatt mehrere Buttons mit den Name Büro.
Mit diesem Code kann ich leider aber nur 1 Button aus und einblenden.
Wie bekomme ich es hin das alle 12 Buttons mit den Name Büro gleichzeitig
aus und eingeblendet werden?

Gruß Nico

Private Sub Worksheet_Activate()

'Shape Farbe 9 unsichtbar machen

If ThisWorkbook.Sheets("Einstellungen").Range("D11").Value = "Nein" Then

Me.Shapes("Büro").Visible = False

Else

Me.Shapes("Büro").Visible = True

End If

End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Buttons aus und einblenden

14.11.2025 11:37:55

Beverly
AW: Buttons aus und einblenden

14.11.2025 13:30:12

Uduuh
AW: Buttons aus und einblenden

17.11.2025 16:02:06

daniel
AW: Buttons aus und einblenden

17.11.2025 16:06:32

NicoHendrik
AW: Buttons aus und einblenden

14.11.2025 13:02:23

NicoHendrik

AW: Buttons aus und einblenden

14.11.2025 11:37:55

Beverly

Hi Nico,

vielleicht so:

Private Sub Worksheet_Activate()

    Dim shaShape As Shape

    With ThisWorkbook.Worksheets("Einstellungen")

        If .Range("D11").Value = "Nein" Then

            For Each shaShape In Me.Shapes

                If InStr(shaShape.Name, "Büro") > 0 Then shaShape.Visible = False

            Next shaShape

        Else

            For Each shaShape In Me.Shapes

                If InStr(shaShape.Name, "Büro") > 0 Then shaShape.Visible = True

            Next shaShape

        End If

    End With

End Sub

AW: Buttons aus und einblenden

14.11.2025 13:30:12

Uduuh

Hallo,
ein bisschen kürzer:

Private Sub Worksheet_Activate()

  Dim shaShape As Shape, bolVisible As Boolean

  

  bolVisible = ThisWorkbook.Worksheets("Einstellungen").Range("D11") > "Nein"

  

  For Each shaShape In Me.Shapes

    If InStr(shaShape.Name, "Büro") Then

      shaShape.Visible = bolVisible

    End If

  Next shaShape

    

End Sub

Gruß aus'm Pott
Udo

AW: Buttons aus und einblenden

17.11.2025 16:02:06

daniel

Hi

wenn du kurzen Code magst, vielleicht so:

dim s as shape

for each s in Me.shapes

    if s.Name like "*Büro*" then s.visible = ThisWorkbook.Sheets("Einstellungen").Range("D11").Value > "Nein"

next

Gruß Daniel

AW: Buttons aus und einblenden

17.11.2025 16:06:32

NicoHendrik

Hallo Daniel,

den teste ich heute Nacht.
der alte Mann (81J) geht sich jetzt erst ausruhen.

Gruß Nico