Kombinera textvärde med löpnummer?

[HannesHelander]

Hej!

 

Jag försöker förgäves komma på hur jag skall lösa mitt problem. Syftet är att kombinera en bokstavskombination (ex: AA, BB, CC,...) och ett 6 siffrigt löpnummer (ex 00001) så att jag jag får ett alfa-numeriskt löpnummer (ex "AA000001") att använda exempelvis som fakturanummer eller dylikt. OBS att de inledande nollor måste bevaras.

 

I första kolumnen på arbetsbladet har jag en drop-down lista med bokstavskombinationerna och i den andra kolumnen vill jag automatiskt få fram det alfanumeriska löpnumret som skall ökas med ett varje rad så fort någon väljer ett värde på första kolumnen i samma rad..

 

Är det någon som har en smart lösning så vore jag tacksam.

 

Mvh

Hannes

http://hannes.helander.net

 

[inlägget ändrat 2006-08-11 14:57:18 av HannesHelander]

[Monshi]

Givet att texten är två tecken?

Kanske då att denna kod kan ge dig inspiration att lösa det. För jag antar att du har lite VBA-kod när du nu har en Combobox.

 

Klistra in koden i en modul och sätt referensen rätt (Sheets("Blad1")Range(A1)).

Sub test()
   With Sheets("Blad1").Range("A1")
       aStr = .Text
       aText = Left(aStr, 2)
       aNum = Val(Right(aStr, Len(aStr) - 2)) + 1
       result = aText & String(Len(aStr) - 2 - Len(Str(aNum)), "0") & aNum
       .Value = result
   End With

End Sub

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.