Button Ein-ausblenden

Forumthread: Button Ein-ausblenden
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Button Ein-ausblenden

28.06.2025 16:38:22

NicoHendrik

Hallo alle zusammen,

ich hab hier ein Button den ich ausblenden möchte wenn A1 leer ist, und wieder einblenden wenn A1 nicht leer ist?
Leider hab ich im Forum nichts richtiges gefunden.
Kann mich bitte jemand helfen?

Gruß Nico
https://www.herber.de/bbs/user/177942.xlsm

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Button Ein-ausblenden

28.06.2025 16:51:42

RPP63
AW: Button Ein-ausblenden

28.06.2025 17:43:32

NicoHendrik
AW: Button Ein-ausblenden

28.06.2025 17:49:34

RPP63
AW: Button Ein-ausblenden

28.06.2025 17:54:27

NicoHendrik
AW: Button Ein-ausblenden

28.06.2025 18:02:20

RPP63
AW: Button Ein-ausblenden

28.06.2025 18:12:29

GerdL
AW: Button Ein-ausblenden

28.06.2025 18:19:13

NicoHendrik

AW: Button Ein-ausblenden

28.06.2025 16:51:42

RPP63

Moin!
Ich sehe nichts von Deinen Versuchen.

Ins Klassenmodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

  Shapes(1).Visible = Not IsEmpty(Target)

End If

End Sub

Gruß Ralf

AW: Button Ein-ausblenden

28.06.2025 17:43:32

NicoHendrik

Danke für die Antwort, funktioniert leider nicht

AW: Button Ein-ausblenden

28.06.2025 17:49:34

RPP63

Bei mir sehr wohl!
Und nun? …
Zeige die Datei mit dem Code.
Dieser steht im Klassenmodul der Tabelle?

AW: Button Ein-ausblenden

28.06.2025 17:54:27

NicoHendrik

Hier die Tabelle. Den Button hab ich Test genannt
https://www.herber.de/bbs/user/177943.xlsm

AW: Button Ein-ausblenden

28.06.2025 18:02:20

RPP63

Du hast

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Shapes("Test").Visible = Target.Address = "$A$1"

End Sub

Ich hatte

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

  Shapes(1).Visible = Not IsEmpty(Target)

End If

End Sub

Folglich ein anderes Ereignis …
Außerdem frage ich auf IsEmpty() ab, Du nicht!

Wenn nur ein Shape vorhanden ist, reicht Shapes(1).
Dein Shapes("Test") funktioniert auch, wenn Du Dich an meinen Code hältst.

Gruß Ralf

AW: Button Ein-ausblenden

28.06.2025 18:12:29

GerdL

Ja sicher. Noch mit Startbedingung.

Private Sub Worksheet_Activate()

    Shapes("Test").Visible = Range("a1") > ""

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

    Shapes("Test").Visible = Range("a1") > ""

End Sub

Gruß Gerd

AW: Button Ein-ausblenden

28.06.2025 18:19:13

NicoHendrik

Danke an beide, alles funktioniert.

Gruß Nico

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!