Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
16.05.2024 19:06:22
Monatssumme / Zahlweise / Kalenderjahr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Schaltflächen in einem Tabellenblatt ausblenden

Alle Schaltflächen in einem Tabellenblatt ausblenden
22.11.2023 08:52:35
Marco1981
Guten Tag,
ich weiß, wie ich Schaltflächen geziehlt ein- und ausblende, mit: 
Worksheets("Tabelle1").Shapes("Schaltfläche 2").Visible = msoFalse

nun habe ich aber ein Tabellenblatt mit vielen verschiedenen Schaltflächen, deren Anzahl sich auch immer wieder mal ändert, und suche nach einer Möglichkeit, wie ich diese mit einem VBA code von einem anderen Tabellenblatt aus alle gesammelt ausblenden kann, ohne dass ich obigen Befehl 20 Mal wiederholen muss mit den jeweiligen Namen der Schaltflächen und den Code immer wieder anpassen muss, wenn eine neue Schaltfläche hinzugefügt wird.
Ist so etwas möglich?
Danke!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Schaltflächen in einem Tabellenblatt ausblenden
22.11.2023 09:02:12
daniel
Hi
wenn du keine anderen Grafikobjekte hast die sichtbar bleiben sollen, dann kannst du einfach alles ein- oder ausblenden: 

Worksheets("Tabelle1").DrawingObjects.Visible = False / True


ansonsten per Schleife mit Prüfung, beispielsweise über den Namen 

dim shpe as Shape

for each shpe in Worksheets("Tabelle1").Shapes

    if shpe.Name Like "Schaltfläche*" then shpe.Visible = False/True

next


Gruß Daniel
AW: Alle Schaltflächen in einem Tabellenblatt ausblenden
22.11.2023 09:07:38
RPP63
Moin!
Switched die Sichtbarkeit aller Shapes: 
Sub Hide_Unhide()

Dim s As Shape

For Each s In Worksheets("Tabelle1").Shapes

  s.Visible = Not s.Visible

Next

End Sub

Gruß Ralf
Anzeige
AW: Alle Schaltflächen in einem Tabellenblatt ausblenden
22.11.2023 09:16:29
Marco1981
Danke daniel und RPP63!
Beide Varianten funktionieren einwandfrei!
Habt mir sehr geholfen! :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige