Functie Numeriek naar tekst + samenvoegen

[Gert Bouwmeeste]

Hoi,

Ik krijg een tabel uit het mainframe met twee kolommen getallen naast elkaar. De getallen zijn opgemaakt als resp 000 en 00, zodat de waarde 1 getoond wordt als resp 001 en 01.

Voor verdere bewerking moet ik deze twee kolommen samenvoegen als tekst, gescheiden door een punt. Dus 001.01

Het lukt mij wel met een macro, maar ik zoek een functie die ik aan kan roepen om beide cellen in het juiste formaat samen te voegen.

Kan iemand mij helpen met een functie?

Sub MaakKantoorNr()
Dim KntNr, KkNr
Application.ScreenUpdating = False
Range("A3").Select
While ActiveCell.Offset(0, 1) <> ""
    KntNr = Trim(ActiveCell.Offset(0, 1).Value)
    KkNr = Trim(ActiveCell.Offset(0, 2).Value)
    Select Case Len(KntNr)
        Case 1
            KntNr = "'00" + KntNr
        Case 2
            KntNr = "'0" + KntNr
        Case 3
            KntNr = KntNr
    End Select
    Select Case Len(KkNr)
        Case 1
        KkNr = "0" + KkNr
        Case 2
        KkNr = KkNr
    End Select
    ActiveCell.Offset(0, 0).Value = KntNr + "." + KkNr
    ActiveCell.Offset(1, 0).Select
Wend
Application.ScreenUpdating = True
End Sub

 

[Roncancio]

Bedoel je het zo?

Function Klantnummer(lBR As Range, lER As Range) As Variant
Dim Kl As String
Dim Kk As String
    Kl = Format(lBR.Value, "000")
    Kk = Format(lER.Value, "00")
    Klantnummer = Kl & "." & Kk
End Function

Zet bovenstaande code in een module.
De functie =Klantnummer(bereik, bereik) geeft de opmaak 000.00

Bijvoorbeeld
=Klantnummer(B2,C2)

Resultaat: 001.00

Met vriendelijke groet,


Roncancio

 

[Gert Bouwmeeste]

Perfect Roncancio, helemaal wat ik bedoel. Dank je wel.

 

[snb]

Waarom niet

Function Klantnummer(lBR , lER ) as String
   Klantnummer = format(IBR,"000") & "." & format(IER,"00")
End Function