Nullen verdwijnen in alfanumerieke referentie

[Killerclown]

Ik zit met een "nullen"-probleem.

Ik heb een cel in excel waar in een alfanumerieke referentie staat (zoiets als VWR00001).
Ik heb daarbij ook een knop waaraan onderstaande code hangt. Telkens je hierop klikt, moet de alfanumerieke referentie 1 optellen.
En daar zit mijn probleem. Als ik start op VWR00001 maakt hij er VWR2 van i.p.v VWR00002.
Kent iemand een trukje waardoor de nullen niet verdwijnen?

Sub Knop1_klikken()

Dim refnum as string
Dim refchar
dim ref
dim newref
dim refnum1 as string

ref = Range("A1").value
refnum = right(ref , 5)
refnum1 = Format(refnum, "00000")
refchar = left(ref, 3)

newref = refchar & refnum1 + 1

Range("A1").value = newref

End sub

Alvast dank.

 

[snb]

Wat dacht je van:

Sub Knop1_klikken()
  Range("A1").value = left(range("A1").value,3) & format(right(Range("A1").value,5)+1,"00000")
End sub

 

[Killerclown]

YES!!!!

Dit werkt perfect!

Waarom werkte de format bij mij niet?

Alvast heel erg bedankt!!!

 

[OctaFish]

Door de formule refnum1 + 1 maakte je van je string refnum1 weer een numerieke waarde; tekst kun je niet optellen dus a001+1 kan niet, maar 0001+1 kan wel, en dat heeft als uitkomst 2. Je gebruikte de FORMAT dus op de verkeerde plek.

 

[Killerclown]

Inderdaad. Nu zie ik het.

Bedankt voor het woordje uitleg!