jkrons, check lige LOPSLAG m.m.

Sub FillOut()

 
    adr = Range("A65536").End(xlUp).Address
   
    For Each c In ActiveSheet.Range("a2:" & adr).Cells
   
        l = Len(c.Value)

        Select Case l
            Case Is = 1
            c.Value = "'00000" & CStr(c.Value)
       
            Case Is = 2
            c.Value = "'0000" & CStr(c.Value)
       
            Case Is = 3
            c.Value = "'000" & CStr(c.Value)
       
            Case Is = 4
            c.Value = "'00" & CStr(c.Value)
       
            Case Is = 5
            c.Value = "'0" & CStr(c.Value)
       
            Case Else
            c.Value = "'" & CStr(c.Value)
       
        End Select
   
    Next c

End Sub

Perfekt !!

Send et svar og du får en håndfuld point.

et svar. ;-))