Ich habe eine Spalte mit sehr vielen Einträgen, es sind Artikelnummern alle sind 7 stellig z B 6573589. Ich möchte jetzt automatisch einen Bindestrich einfügen, an die 3. Stelle. Ich suche eine Lösung mit vba.
Gruß
Sub test()
Range("A1").Value = Left(Range("A1").Value, 2) & "-" & Right(Range("A1").Value, 5)
End Sub
MfG Tom