tekstgrootte meerkeuzelijst (samengevoegde cel)

[Danny83]

Hallo,

Ik zou graag bij een aantal cellen (welke een meerkeuzelijst bevatten) willen dat de zoomgrootte van 90 naar 120 gaat. Dit lukt me wel met een enkele cel, maar niet met samengevoegde cellen... Kunnen jullie onderstaande VB-tekst corrigeren of iets anders verzinnen, zodat ook samengevoegde cellen worden "ingezoomd"?

De samengevoegde cellen zijn B3:E3 , B4:E4 , C21:K21 en B31 als enkele cel...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("B3,B4,C21,B31")) Is Nothing Then
ActiveWindow.Zoom = 90
Else
ActiveWindow.Zoom = 120
End If
End Sub

Bij voorbaat dank voor jullie reactie!:thumb:

Groeten,

Danny

 

[snb]

Gebruik svp de codemarkering (#)

Wat gebeurt er als je de regel

If Target.Cells.Count > 1 Then Exit Sub

verwijdert ?

 

[trucker10]

Hallo,

Ik zou graag bij een aantal cellen (welke een meerkeuzelijst bevatten) willen dat de zoomgrootte van 90 naar 120 gaat. Dit lukt me wel met een enkele cel, maar niet met samengevoegde cellen... Kunnen jullie onderstaande VB-tekst corrigeren of iets anders verzinnen, zodat ook samengevoegde cellen worden "ingezoomd"?

De samengevoegde cellen zijn B3:E3 , B4:E4 , C21:K21 en B31 als enkele cel...



Bij voorbaat dank voor jullie reactie!:thumb:

Groeten,

Danny

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub  '[COLOR="Red"] weg laten zie opm snb [/COLOR]
If Intersect(Target, Range("B3:E3,B4:E4,C21:K21,B31")) Is Nothing Then
ActiveWindow.Zoom = 90
Else
ActiveWindow.Zoom = 120
End If
End Sub

 

[Danny83]

Thanks

Jazeker! Dit is de oplossing! Het is af en toe zo simpel... Bedankt voor jullie antwoord!