Kontrollkästchen oder Checkboxen

Hallo,
habe nach einer Lösung gegoogelt, mit welcher ich Kontrollkästchen ein- bzw. ausblenden könnte und bin mal wieder einmal mehr auf dieses Forum gestoßen.
Eigentlich dachte ich mit diesem Beitrag https://www.herber.de/forum/archiv/116to120/t117504.htm und der Formel


Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Cells(5, 10).Value = "5" Then
CheckBox1.Visible = True
Else
CheckBox1.Visible = False
End If
End Sub

meine Lösung zu haben. Aber bei mir geht da auch mit geringfügigen Änderungen nicht's.
Liegt es an der Excel-Version?
Habe bei den Kontrollkästchen keinen Namen und entsprechende Eigenschaften gefunden.
Der Test mit den CheckBoxen blieb ebenfalls erfolglos.
Habe dann bei den CheckBoxen in den Eigenschaften mal manuel Visible geändert. Da passiert bei mir gar nichts.
Mein Problem ist, dass ich Kontrollkästchen in Zellen eingebunden habe, die ich z.B. mittels x in Spalte B ausblende. Die Kontrollkästchen bleiben jedoch alle sichtbar und verwirren letztlich in der Darstellung.
Wäre für jeden Tip dankbar.
Gruß Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dierk,
klasse funktioniert auch.
Nun stellt sich die Frage, ob ich im Code jedes Kontrollkästchen (Kk) erfassen muss oder ob es eine Möglichkeit gibt, bestimmte Kk anzusprechen.
Z. B. über die verlinkte Zelle.
Habe einen Code für den Aufbau benutzt. Der Namensaufbau ist über die Zeilen


shpBox.Name = "Kontrollkaestchen_" & lngZeile & "_" & lngLinkedCellSpalte
Set rngLinkedCell = wksA.Cells(lngZeile, lngLinkedCellSpalte)

gestaltet.
Kontrollkästchen ist immer in Spalte F, verlinkte Zelle = Spalte R.
Das x für Ein-/Ausblenden ist immer in Spalte B.
Bevor ich mich da versuche erlaube ich mir lieber nochmal die Frage an den Fachmann.
Beispiel:


Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Kontrollkaestchen_30_18").Visible = Cells(30, 2)  x
Shapes("Kontrollkaestchen_33_18").Visible = Cells(33, 2)  x
Shapes("Kontrollkaestchen_38_18").Visible = Cells(38, 2)  x
End Sub

Versuche mir mit meinen wenigen VBA-Kenntnissen zu überlegen ob das mit Variablen und einer Codezeile ginge. Aber vermutlich bin ich schneller die Zeilen zu kopieren und eben x-mal den Code anzulegen.
Insbesondere, da eben nicht alle Kk angesprochen werden sollen.
Insofern vielen vielen Dank für Deine Hilfe.
Gruß Rainer

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then On Error GoTo ErrHDL Application.EnableEvents = False Shapes("Kontrollkaestchen_" & Target.Row & "_18").Visible = Target x End If ErrHDL: Application.EnableEvents = True End Sub

Private Sub Worksheet_Calculate() Dim rng As Long On Error GoTo ErrHDL Application.EnableEvents = False Application.ScreenUpdating = False For Each rng In Columns(2).SpecialCells(xlCellTypeFormulas) Shapes("Kontrollkaestchen_" & rng.Row & "_18").Visible = rng "x" Next ErrHDL: Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Kontrollkästchen oder Checkboxen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kontrollkästchen oder Checkboxen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread