Shapes Visible

Forumthread: Shapes Visible

Shapes Visible

17.07.2025 11:46:34

NicoHendrik

Guten Morgen,

ich hab hier ein Code der ganz gut mit Einschränkung funktioniert .

Shapes("Farbe2").Visible = Range("C1") > ""

C1 befindet sich nicht auf den selben Blatt wo der Button "Farbe2" ist.

Wenn C1 gelöscht wird und ich dann auf das Blatt klicke wo der Button ist, muß ich erst auf eine eine Zelle klicke, damit er unsichtbar wird.

Ich hätte gerne das der Button ohne das Anklicken unsichtbar ist.

Hat jemand eine Lösung für mich?

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shapes Visible

17.07.2025 11:51:05

cysu11
AW: Shapes Visible

17.07.2025 12:32:16

daniel
AW: Shapes Visible

17.07.2025 14:45:03

Ulf
AW: Shapes Visible

17.07.2025 15:00:40

NicoHendrik
AW: Shapes Visible

17.07.2025 13:04:25

NicoHendrik
AW: Shapes Visible

17.07.2025 13:17:37

daniel
AW: Shapes Visible

17.07.2025 13:39:34

NicoHendrik
AW: Shapes Visible

17.07.2025 14:30:03

GerdL
AW: Shapes Visible

17.07.2025 12:02:16

NicoHendrik
AW: Shapes Visible

17.07.2025 12:23:25

cysu11
AW: Shapes Visible

17.07.2025 12:30:41

NicoHendrik

AW: Shapes Visible

17.07.2025 11:51:05

cysu11

Guten Morgen,

damit im Modul des Blattes mit dem Button:

Private Sub Worksheet_Activate()



End Sub

dazwischen dein Code.

LG, Alexandra

AW: Shapes Visible

17.07.2025 12:32:16

daniel

Hi
wie löst du denn die Aktion aus, über welches Event?
nur so als Tipp:
wenn man mit unterschiedlichen Tabellenblättern arbeitet, sollte man immer das Tabellenblatt mit angeben:

Sheets(...).Shapes("Farbe2").Visible = Sheets(...)Range("C1") > ""

weglassen darf man diese Angabe nur, wenn:
- der Code sich in einem Tabellenblattmodul befindet und man das Tabellenblatt des Moduls referenzieren will
- der Code sich in einem allgemeinen Modul befindet und man das gerade aktive Tabellenblatt referenzieren will

die nächste Frage wäre, wie wird die Zelle C1 befüllt:
Macht da der Anwender eine Eingabe von Hand oder steht da eine Formel?

Gruß Daniel

AW: Shapes Visible

17.07.2025 14:45:03

Ulf

Hi,
anbei ein Subclassing-Beispiel. 2 Fenster anordnen und in Einstellungen-D1 was ändern->Aktion.
https://www.herber.de/bbs/user/178103.xlsm
hth
Ulf

AW: Shapes Visible

17.07.2025 15:00:40

NicoHendrik

Danke Ulf und an alle Andere,

jetzt klappt es

Gruß Nico

AW: Shapes Visible

17.07.2025 13:04:25

NicoHendrik

Hallo Daniel,

ich hab den Inhalt von C1 (in C1 steht =WENN(Einstellungen!D4="";"";Einstellungen!D4) aus eine andere Zelle von ein anderen Blatt. Dort in D4 wird der Inhalt manuell gelöscht und gefüllt.

Gruß Nico

AW: Shapes Visible

17.07.2025 13:17:37

daniel

dann solltest du besser mit der Zelle D4 auf dem Blatt "Einstellungen" arbeiten und nicht mit C1
Als Event verwende das Change-Event des Tabellenblatts "Einstellungen"

wenn du mit der Zelle C1 arbeiten willst, musst du das Calculate-Event des Tabellenblatts verwenden, in dem diese Zelle liegt.

merke:
das Change-Event spricht nur an, wenn du den Inhalt einer Zelle von Hand änderst.
Hast du eine Formel, deren Ergebnis sich ändert, wird nicht das Change-Event ausgelöst, sondern das Calculate-Event.
Allerdings kannst du damit nur feststellen, dass eine Zelle auf diesem Blatt neu berechnet wurde, aber du kannst nicht ermitteln, welche und ob die Neuberechnung einen neuen oder wieder den alten Wert ergeben hat.

Gruß Daniel

AW: Shapes Visible

17.07.2025 13:39:34

NicoHendrik

Daniel, was mich am meisten verwundert,
ist, wenn ich den Inhalt von D4 lösche, wird der Inhalt von dem Button gelöscht, der Button aber erst nach ein klicken auf der Tabelle unsichtbar.
Wenn ich dann wieder was in D4 schreibe, ist der Button sofort wieder mit Inhalt sichtbar ohne das ich auf der Tabelle klicken muss.

Gruß Nico

AW: Shapes Visible

17.07.2025 14:30:03

GerdL

Moin Nico,

Excel ist eine Welt der Wunder. :-)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$4" Then

        Tabelle2.Shapes("Farbe2").Visible = Range("D4") > ""

        Tabelle2.Visible = xlSheetHidden

        Tabelle2.Visible = xlSheetVisible

    End If

End Sub

Den Codenamen der Tabelle mit dem Button bitte anpassen.

Gruß Gerd

AW: Shapes Visible

17.07.2025 12:02:16

NicoHendrik

Hallo Alexandra,

Funktioniert leider nicht.

Gruß Nico

AW: Shapes Visible

17.07.2025 12:23:25

cysu11

Bitte Beispieldatei hochladen! :)

AW: Shapes Visible

17.07.2025 12:30:41

NicoHendrik

Danke für die Mühe, ich belasse es so wie es ist.

Gruß Nico

Forumthread: Shapes Visible

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread