Thema Datum  Von Nutzer Rating
Antwort
18.08.2021 10:46:41 Gast76014
NotSolved
Blau Ausblenden AcitveX-CheckBox
 18.08.2021 11:43:43 volti
Solved
18.08.2021 12:00:03 Gast76014
NotSolved
18.08.2021 12:00:13 Gast76014
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
18.08.2021 11:43:43		 Views:
428		 Rating:
     
Antwort:
 Nein
Thema:
Ausblenden AcitveX-CheckBox

Hallo,

wenn Du in allen Blättern die Checkboxen ein/ausblenden willst, musst Du auch darauf referenzieren und nicht immer auf das ActiveSheet.

Außerdem kannst Du noch etwas Code einsparen. Teste mal folgendes Beispiel.

Hierbei wird unterstellt, dass es auf jedem Blatt einen Wert in P4 gibt, ansonsten hier das "Blatt.Range("P4")" durch ActiveSheet.Range("P4") ersetzen.

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12		  
Private Sub Workbook_Open()
  ActiveWorkbook.Unprotect Password:="XXX"
  Call Schutz_aufheben     ' Entsperrt alle Tabellenblätter
  Dim Blatt As Worksheet

  For Each Blatt In ActiveWorkbook.Worksheets
      Blatt.Visible = True
      Blatt.Shapes("CheckBox1").Visible = Not Blatt.Range("P4") = "Wahr"
  Next Blatt
  Call Schutz     ' Sperrt alle Tabellenblätter
  ActiveWorkbook.Protect Password:="XXX"
End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.08.2021 10:46:41 Gast76014
NotSolved
Blau Ausblenden AcitveX-CheckBox
 18.08.2021 11:43:43 volti
Solved
18.08.2021 12:00:03 Gast76014
NotSolved
18.08.2021 12:00:13 Gast76014
NotSolved