Mehrere Buttons ausblenden.

Forumthread: Mehrere Buttons ausblenden.
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Mehrere Buttons ausblenden.

29.06.2025 09:14:45

NicoHendrik

Guten Morgen,

ich habe mehrere Buttons mit dem gleichen Namen “Farbe2“.
Mit dem ersten Button hat das ausblenden funktioniert.

Den Button habe ich dann mehrmals kopiert, aber mit den Kopien funktioniert das ausblenden nicht.

Wie bekomme ich das hin, ändern kann ich die Buttons nicht, da sie alle die gleiche Funktion
Habe.

Gruß Nico

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Button Farbe 2 ausblenden
Shapes("Farbe2").Visible = Range("H6") > ""

End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Buttons ausblenden.

29.06.2025 09:47:01

RPP63
AW: Mehrere Buttons ausblenden.

29.06.2025 11:49:49

GerdL
AW: Mehrere Buttons ausblenden.

29.06.2025 12:04:55

NicoHendrik

AW: Mehrere Buttons ausblenden.

29.06.2025 09:47:01

RPP63

Moin!
• Warum verwendest Du schon wieder das hier falsche _SelectionChange?
• Warum wertest Du nicht (wie von mir im anderen Thread vorgeschlagen) die mitgegebene Variable Target aus?

Und als letzte und imo wichtigste Frage:
Was ist der eigentliche Sinn der Mappe?

Gruß Ralf

AW: Mehrere Buttons ausblenden.

29.06.2025 11:49:49

GerdL

Moin,

beachte bitte die genaue Schreibweise deiner Buttontexte.
Die Syntaxe der diversen integrierten Ereignisprozeduren sind halt singulär.

Option Explicit



Private Sub Worksheet_Activate()

    

    Dim Sh As Shape

    

    For Each Sh In Me.Shapes

        If Sh.AlternativeText = "Farbe 2" Then

            Sh.Visible = Range("H6") > ""

        End If

    Next

    

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

    

    Dim Sh As Shape

    

    If Target.Address(0, 0) = "H6" Then

        For Each Sh In Me.Shapes

            If Sh.AlternativeText = "Farbe 2" Then

                Sh.Visible = Range("H6") > ""

            End If

        Next

    End If



End Sub