VBA streepjes plaatsen A1012B naar A1-01-2B

[HWV]

Beste,

Ik gebruik nu een code om gegevens te plaatsen vanuite een andere workbook.

Deze code staat

Private Sub Worksheet_Change(ByVal Target As Range)
'============================
'Locatiegegevens
'============================
If Target.Column = 2 Then
Target.Offset(, 14).Value = ""
Target.Offset(, 14).Value = Workbooks("901-ZNP tellijst").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 10).Value
End If
End sub

Hiermee worden locatie`s in een excel scheet neergezet vanuit het andere workbook, dit werkt oke.
Het wordt als volgt weggeschreven

A1012B

Ik zou het graag zo willen hebben:
A1-01-2B

Het zou moeten lukken met de volgende stuk code in de huidige code te plaatsen maar het wil me niet lukken

Target = Left(Target, 2) & "-" & Mid(Target, 3, 2) & "-" & Right(Target, 2)

Ik kom er niet meer uit iemand een idee hoe ik dit wel werkend kan krijgen.

Alvast bedankt

HWV

 

[VenA]

Misschien eerst even de waarde opvangen in een variabele en deze dan toewijzen aan je doelcel

Private Sub Worksheet_Change(ByVal Target As Range)
'============================
'Locatiegegevens
'============================
Dim s As String
If Target.Column = 2 Then
Target.Offset(, 14).Value = "" 'kan volgens mij weg
s = Workbooks("901-ZNP tellijst").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 10).Value
Target.Offset(, 14).Value = Left(s, 2) & "-" & Mid(s, 3, 2) & "-" & Right(s, 2)
End If
End Sub

 

[Cobbe]

Of zo:

Private Sub Worksheet_Change(ByVal Target As Range)
'============================
'Locatiegegevens
'============================
If Target.Column = 2 Then
Target.Offset(, 14).Value = ""
Target.Offset(, 14).Value = [COLOR="#FF0000"]Format([/COLOR]Workbooks("901-ZNP tellijst").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 10).Value[COLOR="#FF0000"], "@@-@@-@@")[/COLOR] 
End If
End sub

 

[HWV]

Geweldig

Geweldig !

Werkt als een trein bedankt VenA en Cobbe.
Heb gekozen voor de optie van Cobbe (vraag me niet waarom)

Groet HWV

 

[VenA]

Heb gekozen voor de optie van Cobbe (vraag me niet waarom)

Waarom?