Tabellenblätter durch Kontrollkästchen (de-)aktivieren

[donau09]

Hallo zusammen,

ich möchte ein Tabellenblatt durch ein Kontrollkästchen (!) einblenden. Also auf Blatt1 sollen 5 Kontrollkästchen (Tabelle 1-5) sein, die in der Regel nicht aktiviert sind. Sofern ich dann ein Kontrollkästchen aktiviere, soll ein Tabellenblatt eingeblendet werden.

Das Problem: Die Excelversion auf meinem Mac (Excel 365) kennt die Checkboxen nicht. Bei der Arbeit (Windows-PC) habe ich es mit den Steuerelementen (Checkboxen) und folgendem Code geschafft:

Code:

Private Sub Checkbox1_Click()
Tabelle2.Visible = Me.CheckBox1.Value
Tabelle3.Visible = Me.CheckBox1.Value
Tabelle4.Visible = Me.CheckBox1.Value
Tabelle5.Visible = Me.CheckBox1.Value
Tabelle6.Visible = Me.CheckBox1.Value
End Sub

Leider ist die Lösung so nicht auf die Kontrollkästchen (Formularsteuerelemente) übertragbar bzw. ich habe es nicht geschafft und auch keine Lösung im Internet gefunden.

Weitergehende Frage (wobei der obere Teil Priorität hat):

Zusätzlich soll gleichzeitig auch ein bestimmter Bereich auf der Tabelle1 ausgeblendet (oder verdeckt oder unkenntlich) werden. Allerdings keine ganze Spalte oder Zeile sondern nur z.B. die Zellen F14-16 und G14-16. (In diesen Feldern steht Text und ein Drag-Down Menü)

Wäre das möglich nur mit den Kontrollkästchen?

Vielen Dank für eine Antwort!

[Kuwer]

Hallo,

mit Formular-Kontrollkästchen so:

' **************************************************************

'  Modul:  Modul1  Typ = Allgemeines Modul

' **************************************************************



Option Explicit



Sub Kontrollkästchen1_Klicken()

  Tabelle2.Visible = ActiveSheet.CheckBoxes(Application.Caller).Value = 1

End Sub

Zur 2. Frage habe ich keine Idee.

Gruß Uwe

[schauan]

Hallöchen,

Du kannst, zumindest in Windows, auch einem Formularsteuerelement ein Makro zuweisen, genau wie Bildern und anderen Objekten …

Code:

Sub Kontrollk?stchen1_Klicken()
MsgBox ActiveSheet.Shapes("Kontrollk?stchen 1").DrawingObject.Value
End Sub

---

… zusätzlich geht nicht. entweder ganze Zeilen oder ganze spalten oder beides.

Alternativ würde nur die ostfriesische Flaggenmethode gehen, weißer Adler auf weißem Hintergrund Oder Du nimmst die Daten temporär weg und irgendwann wieder rein. Oder ...

[donau09]

Danke euch, hat geklappt!
Zu der Frage 2: Kann ich nicht einfach eine weiße Form, also ein Rechteck, über den Bereich legen und dann bei Bedarf ein- und ausblenden?
Sieht zwar nicht so schön aus, aber die Daten dadrunter wären nicht zu sehen. 
Hat jemand dafür einen Code?

[Käpt'n Blaubär]

Hallo,

Zu der Frage 2:
Kann ich nicht einfach eine weiße Form, also ein Rechteck, über den Bereich legen und dann bei Bedarf ein- und ausblenden?

einfacher als eine Hintergrundfarbe der Schriftfarbe anzupassen oder umgekehrt kann es doch nun wirklich nicht ablaufen.
Was soll die Arie mit dem Rechteck?

[donau09]

Da die Zellen Teil einer Tabelle sind würde es so aussehen, als ob dort etwas fehlen würde oder man etwas ergänzen soll, wenn ich nur die Hintergrundfarbe einstelle. Das soll ja gerade nicht gemacht werden, daher würde ich die Lösung bevorzugen eine Form ein- und auszublenden, was auch optisch einen anderen Effekt hat. (Möglicherweise würde ich Form auch farblich etwas abheben oder beschriften)
Allerdings weiß ich nicht welchen Code und wie ich ihn in die Lösung von Uwe einbauen müsste

[marose67]

Hallo,

ich weiß nicht was Apple macht ... aber hier mal ein Beispiel zu Checkboxen:

Gruß
Marcus

[schauan]

Hllöchen,

hier mal 2 Varianten zum Schalten einer TextBox.

1) Makro 1+2 wäre gezielt getrenntes schalten,
2) Makro 3 schaltet immer auf den gegenteiligen Zustand

Code:

Option Explicit

Sub Makro1()
    'Textbox aus
    ActiveSheet.Shapes("TextBox 1").Visible = False
End Sub

Sub Makro2()
    'Textbox an
    ActiveSheet.Shapes("TextBox 1").Visible = True
End Sub

Public Sub Makro3()
    'Textbox Switcher
    ActiveSheet.Shapes("TextBox 1").Visible = Not ActiveSheet.Shapes("TextBox 1").Visible
End Sub

[Käpt'n Blaubär]

Hallo,

Da die Zellen Teil einer Tabelle sind würde es so aussehen, als ob dort etwas fehlen würde oder man etwas ergänzen soll, wenn ich nur die Hintergrundfarbe einstelle.

ich verstehe Deine Bauchschmerzen überhaupt nicht. Die Dir angebotene Lösung ist wirklich die Schmerzfreieste.
Wie willst Du denn sinnvoll beipielsweise die unten aufgeführten Probleme in den Griff kriegen?

Kann ich nicht einfach eine weiße Form, also ein Rechteck, über den Bereich legen und dann bei Bedarf ein- und ausblenden?

Na klar kannst Du das machen. ... und es wird, weil Du ja so viel Wert auf Optik legst, sehr künstlerisch aussehen.

Wie willst Du denn jeder, und sei sie noch so kleinen Änderung, beispielsweise einer Layoutänderung oder eines
Zooms, oder eines Verschiebens des sichtbaren Bereiches, vernünftig und zeitgleich mit einem starren Stück
Abdeckpappe begegnen? Ehrlich, ich möchte das nicht programmieren müssen
Aber mach mal ruhig, Du schaffst das schon.

[donau09]

Die Lösung von schauan (Textbox Switch) hat perfekt funktioniert. Danke!
 
@KäptnBlaubär.
Die Textbox habe ich so formatiert, dass es aussieht als wäre die Tabelle zu ende. Der Anwender kann also nicht auf den Gedanken kommen irgendwas in den Zellen zu ändern, in denen dann möglicherweise einige Formeln in weißer Schrift stehen würden. 
Das Layout wird nicht verändert. Falls doch: Bei Verwendung des Zooms oder Änderung der Zeilen- und Spaltengröße werden die Textboxen mitbewegt bzw. verdecken den zugewiesenen Platz. (Möglicherweise werde ich auch noch einen Schreibschutz einfügen.)
Somit alle Probleme gelöst. Ich danke auch Dir für deine Hinweise!