verschillende weergave in cellen

[bkoppers]

Wie kan mij verder helpen?
onderstaande code gebruik ik om een waarde in een Cel weer te geven, enkel met onderstaande code werkt alleen het weergeven in cel A1, de weergave in cel C1 (andere waarde) doet hij niet.
Wat doe ik fout.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'In Cel A1 wordt Cert. nummer weergegeven wanneer Cert. nr. in kolom c is geselecteerd.
If Intersect(Target, Range("c3:c801")) Is Nothing Then Exit Sub
[a1] = Target.Value

  'In Cel C1 wordt HMV nummer weergegeven wanneer HMV nr. in kolom A is geselecteerd.
If Intersect(Target, Range("A3:A801")) Is Nothing Then Exit Sub
[C1] = Target.Value

End Sub

Met vriendelijke groet.
B. Koppers

 

[edmoor]

Waarschijnlijk omdat je volgorde van testen niet klopt. Probeer deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'In Cel A1 wordt Cert. nummer weergegeven wanneer Cert. nr. in kolom c is geselecteerd.
     If Not Intersect(Target, Range("C3:C801")) Is Nothing Then [A1] = Target.Value

    'In Cel C1 wordt HMV nummer weergegeven wanneer HMV nr. in kolom A is geselecteerd.
    If Not Intersect(Target, Range("A3:A801")) Is Nothing Then [C1] = Target.Value
End Sub

 

[bkoppers]

Bedankt voor de snelle reactie. Nu werkt het wel...