Covertering af blandet hextal til eksakt hextal 12cifre

En funktion i VBA vil kunne måle længde og indsætte de manglende nuller:

Private function fastlængde(værdi) 
while len(værdi)< 12
    værdi = "0" + værdi
wend
fastlængde = værdi
End function

Øhh, Hvordan gør jeg lige det ??
Har på nuværende tidspunkt: nr, tal, navn, m.m. stående på en linie, derefter næste linie med nr , tal, navn,  o.s.v.

mvh Lund

Denne formel kan klare det uden vba:
=HØJRE("00000000000"&A1;12)
Indtast den i en ny kolonne, og kopier den hele vejen ned til sidste benyttede række.

Du kan efterfølgende erstatte de oprindelige id nr.:
Marker den nye kolonne
Kopier
Marker kolonnen med oprindelige id nr.
Vælg Rediger->Indsæt speciel, Værdier

Sådan ErikJull
Det virker, Tusinde tak

Point til dig - svar

Du kan også kombinere erikjuul's glimrende forslag i VBA så den automatisk sæter formatet ind når du taster / indsætter værdi
tryk alt+F11 og kopier flg. kode ind i kodevinduet og luk editoren igen


Private Sub worksheet_change(ByVal target As Range)
target = Right("000000000000" & target, 12)
End Sub

erikjull SVAR

Det kommer her!