getallen opmaak

[caffie]

ik heb een sheet met daar in een range getallen

12345
123
1234

nu wil ik deze via vb
allemaal dezelfde opmaak geven

012345
000123
001234

ik was al aan het rommelen met
Cells(4, 5).NumberFormat = "######,##0"
maar kom er niet uit

moet waarschijnlijk omgezet worden als tekst want excel snap de nummer ervoor niet

wie kan me helpen

 

[danny147]

Beste caffie

Ga naar celeigenschappen, aangepast in categorie en en typ 6 nullen in het vak Type:

Groetjes Danny :thumb:

 

[caffie]

Beste caffie

Ga naar celeigenschappen, aangepast in categorie en en typ 6 nullen in het vak Type:

Groetjes Danny :thumb:

dat kan maar ik wil het in VB (Visual Bassic) doen



toch bedankt voor de reactie

 

[snb]

cells(1,1)=format(cells(1,1),"000000")

 

[Roncancio]

Onderstaande code zet het bereik A1 t/m A3 om in opmaak 000000 met als resultaat:

012345
000123
001234

Sub Omzetten()
Dim Cl As Range
    For Each Cl In Range("A1:A3")
        Cl.NumberFormat = "000000"
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[snb]

Of

Sub wijzig()
  [A1:A3].NumberFormat = "000000"
End Sub