Kontrollkästchen

[Nigg]

Guten Tag

In der Zelle B20 hab ich vier Kontrollkästchen. Diese möchte ich,
solange in der Zelle I12 der Wert 0.000 steht ausblenden. Wie
mache ich dies? Ich habe in der Zelle B6 und B7 noch zwei weitere
Kontrollkästchen, welche nicht ausgeblendet werden sollen.

Ps.: Ich habe absolut keine Erfahrung mit Makros, wäre also dankbar
um eine detailierte Schritt für Schritt Anleitung.

Besten Dank für eure Unterstützung!

Gruss
Nigg

[WillWissen]

Hi Nigg,

schau mal in diesen Link. Das Thema scheint genau dein Problem betreffen.

[schauan]

Hallo Nigg,

ich habe das Makro mal auf Deine Bedürfnisse angepasst. Es setzt die Kästchen 4 bis 7 sichtbar, wenn Du in I12 0 einträgst, und unsichtbar, wenn Du etwas anderes reinschreibst. Das Makro fügst Du in das Tabellenblattmodul von Fert 1 ein. Dazu wechselst Du mit ALT + F11 in den VBA-Editor. Dort siehst Du auf der linken Seite den Projektexplorer, in dem u.a. Deine Datei steht. Sollte diese nicht "aufgeklappt" sein kannst Du darauf doppeklicken und siehst dann die einzelnen Bestandteile, z.B.
Tabelle1 (Fert 1). Auf diese klickst Du wieder und daz zugehörige Modulblatt geht auf. Kontrollieren kannst Du das in der Titelzeile, dort sollte unter anderem Tabelle1 (code) stehen. Dort fügst Du den code dann ein.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Variablendeklarationen
'Boolsch - Trigger fuer Anzeige
Dim bVisible As Boolean
'Wenn die Zieladresse nicht I12 ist, dann Makro verlassen
If Target.Address <> "$I$12" Then Exit Sub
'Trigger fuer Anzeige auf True setzen, wenn I12 0 ist
bVisible = (Target.Value = 0)
'Schleife ueber die Kontrollkaestchen 4 bis 7
For icnt = 4 To 7
  'Kontrollkaestchen ein/ausblenden
  ActiveSheet.Shapes("Kontrollkästchen " & icnt).Visible = bVisible
'Ende Schleife ueber die Kontrollkaestchen 4 bis 7
Next
End Sub

[Kuwer]

Hallo Nigg,

da in I12 ja eine Formel steht, ist Andrés Makro nicht unbedingt zielführend.
Mein Vorschlag ist folgendes Makro, das in dasselbe Modul kommt:

Code:

Private Sub Worksheet_Calculate()
 If Range("I12").Value = 0 Then
   Me.CheckBoxes("Check Box 4").Visible = False
   Me.CheckBoxes("Check Box 5").Visible = False
   Me.CheckBoxes("Check Box 6").Visible = False
   Me.CheckBoxes("Check Box 7").Visible = False
   Me.CheckBoxes("Check Box 4").Value = False
   Me.CheckBoxes("Check Box 5").Value = False
   Me.CheckBoxes("Check Box 6").Value = False
   Me.CheckBoxes("Check Box 7").Value = False
 Else
   Me.CheckBoxes("Check Box 4").Visible = True
   Me.CheckBoxes("Check Box 5").Visible = True
   Me.CheckBoxes("Check Box 6").Visible = True
   Me.CheckBoxes("Check Box 7").Visible = True
 End If
End Sub

Gruß Uwe

[schauan]

Hallo Uwe,

ja, so ist es. Allerdings sollten die Werte doch nicht zurückgesetzt werden ? Das Ausblenden geschieht ja auch unabhängig vom Inhalt - Eventuell sollte man die dann nur ausblenden, wenn sie angehakt sind. Mal sehen, was Nigg dazu schreibt.

Hier mal mein korrigierter Ansatz:

Code:

Private Sub Worksheet_Calculate()
'Schleife ueber die Kontrollkaestchen 4 bis 7
For icnt = 4 To 7
  'Kontrollkaestchen ein/ausblenden
  ActiveSheet.Shapes("Kontrollkästchen " & icnt).Visible = (Range("I12").Value = 0)
'Ende Schleife ueber die Kontrollkaestchen 4 bis 7
Next
End Sub

[Nigg]

Guten Tag Zusammen

Besten Dank vielmals für eure Unterstützung, mit dem Makro von Uwe funktioniert dies, genau wie gewüscht.
Wünsche euch noch ein schönes Wochenende!

Gruss
Nigg