Hoe declareer ik de waarde van Target cellen?

[Masjimo]

In mijn spreadsheet heb ik de volgende VBA gebruik voor het synchroniseren van gevalideerde celen;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range

If Target.Cells.Count <> 1 Then Exit Sub

If Target.Column = 1 Or Target.Column = 2 Then
    Set R = Intersect(Sheets("KBC").Columns(Target.Column), Sheets("KBC").UsedRange).Find(Target, , , xlWhole)                            [B]==> Werkt niet goed: de inhoud van de betreffende cellen in sheet "KBC" is de uitkomst van een formule (A)[/B]
End If

If Target.Column = 3 Or Target.Column = 4 Then
    Set R = Intersect(Sheets("KPD").Columns((Target.Column) - 2), Sheets("KPD").UsedRange).Find(Target, , , xlWhole)                    [B]==> Werkt goed: de inhoud van de betreffende cellen in sheet "KPD" zijn getypte waarden / teksten[/B]
End If

If R Is Nothing Then Exit Sub
Application.EnableEvents = False
    If Target.Column = 1 Then
        Target.Offset(, 1) = R.Offset(, 1)
    End If
    If Target.Column = 2 Then
        Target.Offset(, -1) = R.Offset(, -1)
    End If
    If Target.Column = 3 Then
        Target.Offset(, 1) = R.Offset(, 1)
    End If
    If Target.Column = 4 Then
        Target.Offset(, -1) = R.Offset(, -1)
    End If
Application.EnableEvents = True
End Sub

Als ik (A) verander in tekst werkt de VBA wel; hoe moet ik deze VBA aanpassen zodat het wel werkt??

Alvast bedankt!

 

[HSV]

Pas je bericht even aan met codetags.
Je hoeft daar geen nieuwe bericht voor aanmaken.

 

[Masjimo]

??? Hoe bedoel je.... ??

 

[HSV]

Je code staat nu zonder codetags.
Selecteer je code en druk op de # boven het berichtvenster.

 

[HSV]

Dat leest aardig wat beter (bedankt).
Zet voor xlwhole eens xlformulas:

find(target, , [COLOR=#FF0000]xlFormulas[/COLOR],xlwhole

 

[Masjimo]

Dat heeft geen impact...

 

[HSV]

En "xlvalues" ?

 

[Masjimo]

Helemaal gelukkig!!! Bedankt!!

Masjimo

 

[HSV]

Graag gedaan.