Zeilen und Checkbox Kontrollkästchen ausblenden

Hallo,
hier meine Problem bei einem Großen Formular. Ich möchte Zeilen und Checkbox Kontrollkästchen ausblenden wird hier mit dem Ja/Nein gesteuert.
Die Zeilen 217 bis 220 sollen mit Ja eingeblendet werden. die Checkboxen sind aber Sichtbar wenn diese 4 Zeilen ausgeblendet sind.
Im Formular kommen Checkboxen bereits öfter vor. Bisher liegen diese aber immer in einem nicht ausgeblendeten Bereich.

Userbild

Sub Checkliste_Optionsfeld171_Klicken()

'1.9 Dachflächenfenster:

    If ActiveSheet.Range("V216") = 1 Then

        Rows("217:220").Hidden = False

        ActiveSheet.Range("N216").Activate

    Else

        Rows("217:220").Hidden = True

'        ActiveSheet.CheckBoxes.Visible = True

    End If

'    If ActiveSheet.Range("V216") = 1 Then

'        ActiveSheet.CheckBox173.Visible = False

'    Else

'        ActiveSheet.CheckBox127.Visible = True

'        ActiveSheet.CheckBoxes.Visible = True

'    End If

End Sub

Ich habe schon mal einen Versuch gestartet, aber ich komme damit nicht weiter.

Wäre Super wenn mir jemand Helfen könnte. Vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ActiveSheet.CheckBox217.Visible = Not Rows(217).Hidden ActiveSheet.CheckBox218.Visible = Not Rows(217).Hidden ActiveSheet.CheckBox219.Visible = Not Rows(217).Hidden ActiveSheet.CheckBox220.Visible = Not Rows(217).Hidden

Sub Checkliste_Optionsfeld171_Klicken() '1.9 Dachflächenfenster: If ActiveSheet.Range("V216") = 1 Then Rows("217:220").Hidden = False ActiveSheet.Range("N216").Activate ActiveSheet.Shapes("Kontrollkästchen 173").DrawingObject.Visible = True ActiveSheet.Shapes("Kontrollkästchen 174").DrawingObject.Visible = True ActiveSheet.Shapes("Kontrollkästchen 175").DrawingObject.Visible = True ActiveSheet.Shapes("Kontrollkästchen 176").DrawingObject.Visible = True Else Rows("217:220").Hidden = True ActiveSheet.Shapes("Kontrollkästchen 173").DrawingObject.Visible = False ActiveSheet.Shapes("Kontrollkästchen 174").DrawingObject.Visible = False ActiveSheet.Shapes("Kontrollkästchen 175").DrawingObject.Visible = False ActiveSheet.Shapes("Kontrollkästchen 176").DrawingObject.Visible = False End If End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen und Checkbox Kontrollkästchen ausblenden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen und Checkbox Kontrollkästchen ausblenden

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread