Checkbox(es) met diens tekst(en) tonen op ander tabblad

[tijmen_4real]

Goedemorgen ,

Met deze code op mijn tweede tabblad:

' --------- Keuzerondjes speciale eisen aan grondstoffen -> Fase 3 ---------
Sub Checkbox_Test()
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 43
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Lastig te verwerken, deeltjesgrootte en contaminanten"
ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 32
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Lastig te verwerken en deeltjesgrootte"
ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 15
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Deeltjesgrootte"
ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 32
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Deeltjesgrootte en contaminanten"
ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = True Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 32
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Lastig te verwerken en contaminanten"
ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = False Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 32
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Lastig te verwerken"
ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = True Then
    Sheets("Fase 3 - Samenvatting").Rows("31").EntireRow.RowHeight = 15
    Sheets("Fase 3 - Samenvatting").Range("B31").Value = "Contaminanten"
Else
    Call Checkbox_Test
End If
End Sub

Wil ik bij de keuze van één, twee of alledrie checkboxes de tekst die daarbij hoort tonen op een ander tabblad.
Dit werkt echter maar éénmalig, bij de eerste keer dat een checkbox geselecteerd wordt.
Hoe kan ik deze functie zich laten herhalen (dus kijken of er een (andere)box ge/deselecteerd is) en dan de tekst opnieuw aanpassen?

Bij voorbaat dank. Bijlage hier: Bekijk bijlage intake-formulier.xlsm
Groet,

Tijmen

 

[snb]

Het kan met iets minder code:

Private Sub CheckBox1_Change()
  M_test
End Sub
Private Sub CheckBox2_Change()
  M_test
End Sub
Private Sub CheckBox3_Change()
  M_test
End Sub

Sub M_test()
  With Sheets("Fase 3 - Samenvatting").Range("B31")
      .Value = IIf(CheckBox1, CheckBox1.Caption & vbLf, "") & IIf(CheckBox2, CheckBox2.Caption & vbLf, "") & IIf(CheckBox3, CheckBox3.Caption, "")
      .EntireRow.AutoFit
   End With
End Sub

 

[tijmen_4real]

Supergoed: bedankt!

 

[snb]

In plaats van 4 keuzerondjes zou ik 2 vinkvakken nemen met ieder de tekst 'Ja".
Aangevinkt="ja", afgevinkt="Nee"

Dan is deze code voldoende:

Private Sub CheckBox7_Change()    'logistieke problemen
    Sheets("Fase 3 - Samenvatting").Range("B29") = Format(CheckBox7, "yes/no")
End Sub

Private Sub CheckBox8_Change()    '   afbreukrisico
    Sheets("Fase 3 - Samenvatting").Range("B30") = Format(CheckBox8, "yes/no")
End Sub

 

[tijmen_4real]

Assertieve opmerking en zeer welkom! Nogmaals hartelijk dank