Getal tussenvoegen aan cel

[sniffertje]

Ik wil een extra 0 toeveogen aan een bepaalde cel.

Huidige situatie:
plaatje-001
plaatje-002
plaatje-003
etc

Gewenste situatie:
plaatje-0001
plaatje-0002
plaatje-0003
etc

Hoe kan ik dit doen in excel op een simpele manier?

 

[Hoornvan]

sniffertje,

Ik ga er van uit dat dit in de kolom A staat.
Zet deze code achter het blad en dubbel klik dan ergens op het blad.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With [A:A]
     .Replace "-00", "-000", xlValue, xlPart
 End With
End Sub

 

[Geminite]

Aangenomen dat -001 en -002 de vaste waarden hebben.

ctrl+f (zoeken)
kies tabblad replace

find what -00
replace with -000

----
Edit: Me dorpsgenoot was me weeeeer voor

 

[Ginger]

Dit lijkt me een veiliger methode...

Sub VervangNullen()

    For Each c In Selection
        If Len(Mid(c.Value, InStr(1, c.Value, "-"))) = 4 Then _
            c.Value = Replace(c.Value, Right(c.Value, 3), Format(Right(c.Value, 3), "0000"))
    Next c

End Sub

Selecteer het bereik met de om te zetten codes en bovenstaande VBA-code een keer lopen. Óók een waarde als 999 zal nu worden omgezet naar 0999...

Groet, Leo

 

[EdWel]

Zonder VBA:

Evt. een nieuwe kolom invoegen en dan:
= LINKS(A1;8)&"0"&RECHTS(A1;3)
Dan de nieuwe kolom kopieren>plakken speciaal>waarden en de oude kolom verfrommelen en weggooien.

Groet, Ed

 

[danny147]

Beste EdWel

Deze kan ook :

=SUBSTITUEREN(A1;DEEL(A1;9;3);0&DEEL(A1;9;3))

Groetjes Danny. :thumb:

 

[EdWel]

Hoi Danny,

Deze ook:
=SUBSTITUEREN(A1;"-0";"-00")

Groet, Ed