Lille makro

Måske kunne du blot nøjes med denne formel

=REPT("0";10-LEN(A1))&A1

Oversættelse:
LEN = LÆNGDE
REPT = GENTAG

Hej

Det fungerer fint, når jeg laver en ekstra kolonne.
Jeg søger, om jeg kan formatere den aktive kolonne.
Tak.

Marker kolonnen
Ctrl + 1:
Formater:
Jeg kan ikke huske hvilken:
##########
#########0
#0000000000
0##########

Formater den som custom/brugerdefineret med formatet:
0000000000

Vh
ANedi

Hvis tallene står i kolonne A og kolonnen er formateret som tekst, så virker denne makro:

Sub TiTal()
Dim c As Range
Dim LastRow As Long
LastRow = Cells(65356, 1).End(xlUp).Row
Range("A1:A" & LastRow).Select
For Each c In Selection
If Len(c) <> 10 Then
c = WorksheetFunction.Rept("0", 10 - Len(c.Value)) & c.Value
End If
Next
End Sub

Range("A:A").NumberFormat = "0000000000"

Skift selv til anden kolonne end 'A', hvis du ønsker en anden kolonne.
Skift selv antallet af cifre, med nuller, hvis du ønsker et andet antal cifre.