code links in een VBA code verwerken

[HWV]

Beste,

Ik gebruikt deze code achter mijn werkblad om gegevens uit een andere werkmap te halen en deze te plaatsen op mijn werkblad.
Het is een ean 13 nummer, maar nu wil ik eigenlijk ipv dat hij het gehele getal overneemt dat hij maar 12 karakters over zet in plaats van 13 karakters

8714917037805

moet worden

871491703780

zal iets moeten zijn met de code zoals hier onder, maar weet niet hoe ik deze moet verwerken in het geheel.
Kan iemand mij hier in helpen

=LEFT(RC[1],12)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'============================
'Artikelgegevens
'============================
If Target.Column = 1 Then

Target.Offset(, 6).Value = ""
Target.Offset(, 6).Value = "'" & Workbooks("901-Barcode ZNP").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 4).Value

End If
End Sub

 

[edmoor]

Het verschilt niet zoveel van de Excel formule. In VBA gebruik je:
variabele = Left(stringvariabele, 12)

 

[HWV]

Bedankt voor uw reactie.

Ik wil dit bouwen in dit stukje:

If Target.Column = 1 Then

Target.Offset(, 6).Value = ""
Target.Offset(, 6).Value = "'" & Workbooks("901-Barcode ZNP").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 4).Value

End If

Maar kom er niet uit, ik heb nu dit:

If Target.Column = 1 Then

Target.Offset(, 6).Value = ""
Target.Offset(, 6).Value = "'" & Workbooks("901-Barcode ZNP").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole) [COLOR="#FF0000"]variabele[/COLOR] = Left(stringvariabele, 12) .Offset(, 4).Value

End If

Op het rode gedeelte loopt hij vast.

Ik hoop dat u ondersteuning kan geven.

HWV

 

[HWV]

Omslachtig maar gelukt!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Offset(, 6).Value = ""
Target.Offset(, 6).Value = "'" & Workbooks("901-Barcode ZNP").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 4).Value
[g7] = "'" & Left([g7], 12)
End If


End Sub