HammerJohn
Gebruiker
- Lid geworden
- 27 apr 2016
- Berichten
- 173
Hoi een vraagje ik gebruik onderstaande code om een gedeelte van een rij leeg te maken, op zich werkt dat goed alleen
nu wil ik in de cellen B5 - B6 -B7 een formule plaatsen als verwijzing.
Nu werkt het niet meer om dat de formule gezien wordt, kan ik dit anders oplossen zodat hij de formule zal negeren als de
cel leeg is.(dus geen waarde bevat)
nu wil ik in de cellen B5 - B6 -B7 een formule plaatsen als verwijzing.
Nu werkt het niet meer om dat de formule gezien wordt, kan ik dit anders oplossen zodat hij de formule zal negeren als de
cel leeg is.(dus geen waarde bevat)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
Range("C5:L5").ClearContents
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
Range("C6:L6").ClearContents
End If
If Not Intersect(Target, Range("B7")) Is Nothing Then
Range("C7:L7").ClearContents
End If
End Sub