Hallo,
Ik ben redelijk bedreven in Excel maar ik krijg het volgende niet voor elkaar:
In cel C2 staat een keuzelijst.
Wat ik graag wens is dat als de waarde van cel C2 wijzigt de cellen B7, C7, B9, C9, B11 en C11 automatisch leeg worden gemaakt.
Vervolgens moet cel B7 geselecteerd worden.
De cellen bevatten allen een keuzelijst die afhankelijk is gemaakt van cel C2.
Met het automatisch leeg maken van de genoemde cellen voorkom ik dat er mogelijke fouten ontstaan met het invullen van de afhankelijke keuzelijsten.
Middels een macro kan ik er wel handmatig voor zorgen dat de cellen leeg worden gemaakt, echter de wens is om dit automatisch te doen.
Hoe vul ik onderstaande macro aan zodat dit automatisch gaat?
Alvast heel erg bedankt voor de hulp!
Sub Macro2()
'
' Macro2 Macro
'
'
Range("B7").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("C11").Select
Selection.ClearContents
Range("B7").Select
End Sub
Ik ben redelijk bedreven in Excel maar ik krijg het volgende niet voor elkaar:
In cel C2 staat een keuzelijst.
Wat ik graag wens is dat als de waarde van cel C2 wijzigt de cellen B7, C7, B9, C9, B11 en C11 automatisch leeg worden gemaakt.
Vervolgens moet cel B7 geselecteerd worden.
De cellen bevatten allen een keuzelijst die afhankelijk is gemaakt van cel C2.
Met het automatisch leeg maken van de genoemde cellen voorkom ik dat er mogelijke fouten ontstaan met het invullen van de afhankelijke keuzelijsten.
Middels een macro kan ik er wel handmatig voor zorgen dat de cellen leeg worden gemaakt, echter de wens is om dit automatisch te doen.
Hoe vul ik onderstaande macro aan zodat dit automatisch gaat?
Alvast heel erg bedankt voor de hulp!
Sub Macro2()
'
' Macro2 Macro
'
'
Range("B7").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("C11").Select
Selection.ClearContents
Range("B7").Select
End Sub