Hallo,

Ik zit binnen VBA te stuntelen met de volgende uitdaging;

Ik heb een cel A9 met daar in een uitkomst (WAAR of ONWAAR). Afhankelijk van de waarde van deze uitkomst wil ik een regel (42) verbergen (of zichtbaar maken).
Ik krijg dit maar niet voor elkaar.

(de onderstaande macro werkt wel, als ik in de cel C38 een harde waarde in vul)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C38"), Target) Is Nothing Then
If Range("C38").Value > 0 Then
Rows("39:39").Hidden = False
Else
Rows("39:39").Hidden = True
End If
End If
End Sub

Wie o wie kan mij verder helpen?

Die Intersect gooit roet in het eten, zonder werkt hij wel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A9").Value = True Then
Rows("32:32").Hidden = False
Else
Rows("32:32").Hidden = True
End If
End Sub

=A1 = 100

Zie bijlage.

Gr. Mike

Mikemod al vast bedankt voor je reactie.

Echter gaat het nog niet zo als het zou moeten.
Ik heb nog wel de volgende kanttekening.

Ik heb twee keuzerondjes (keuze-1, keuze-2) gelinkt aan respectievelijk cel-X9 en Y9.
Het is nu de bedoeling dat, afhankelijk van het geselecteerde keuzerondje een regel wordt verborgen of juist zichtbaar gemaakt. (keuze-1 regel 32 zichtbaar, keuze-2 regel 32 verborgen).

ps ik ben nog niet zo lang bezig met het werken met VBA.

groet Peter.

Hi Peter,

Ik zie dat dat inderdaad een 'dingetje' is. Worksheet_Change wordt niet afgevuurd als de wijziging voortkomt uit een control

Je moet eigenlijk een worksheet_change 'forceren' o.b.v. de linkedcell door 2 extra OptionButton_Change methods:

Private Sub OptionButton1_Change()
Worksheet_Change Range(OptionButton1.LinkedCell)
End Sub
Private Sub OptionButton2_Change()
Worksheet_Change Range(OptionButton2.LinkedCell)
End Sub

Zie bijlage en dank voor je vragen aan dit forum #contentkeepsmysitealive!

Gr. Mike

Hallo Mike,

Hartelijk dank.
Het werkt perfect.
Hier kan ik eerst prima mee uit de voeten.
(op een aantal anderen voorwaarden ook geprobeerd, werkt super)

Goet Peter.