office 2003 Makro

Ja - ved at opdele tallet i enheder og erstatte disse med tekst - lidt af et puslearbejde, men det kan lade sig gøre.

kan du være lidt mere specifik?

jeg indsætter det numeriske tal i en tekstbox, er det et ok udgangspunkt

Hej - sådan er status - programmet er ikke færdigt - men du kan se princippet:

Dim beløb
Dim t1 As Variant, t2 As Variant, t3 As Variant
Sub programStart()
    sætTabeller
'    tekst = konverterTilTekst(37.75)          'ok
'    tekst = konverterTilTekst(7.75)            'ok
'    tekst = konverterTilTekst(137.75)          'ok
    tekst = konverterTilTekst(217.75)          ' ej ok !
   
End Sub
Private Sub sætTabeller()
    t1 = Array("", "en", "to", "tre", "fire", "fem", "seks", "syv", "otte", "ni" & _
        "ti", "elleve", "tolv", "tretten", "fjorten", "femten", "seksten", "sytten", "atten", "nitten")
    t2 = Array("", "", "tyve", "tredive", "fyrre", "halvtres", "tres", "halvfjers", "firs", "halvfems")
    t3 = Array("hundrede", "tusinde", "millioner")
End Sub
Private Function konverterTilTekst(tal)
Dim beløb, ix, kr, dec, tekst, tt1, tt2

    beløb = CStr(tal)
    ix = InStr(beløb, ",")
   
    If ix = 0 Then
        beløb = beløb + ",00"
    End If
   
    kr = Left(beløb, ix - 1)
    dec = Mid(beløb, ix + 1)
   
    tt1 = opDel(kr)
    tt2 = opDel(dec)
   
    konverterTilTekst = tt1 + " " + tt2 + "/00"
End Function
Private Function opDel(xx)
Dim tekst
    Select Case Len(xx)
        Case 1: tekst = t1(Val(xx))
        Case 2: tekst = t1(Val(Right(xx, 1))) + "og" + t2(Val(Left(xx, 1)))
        Case 3: tekst = t1(Val(Left(xx, 1))) + t3(0) + t1(Val(Right(xx, 1))) + "og" + t2(Val(Mid(xx, 2, 1)))
    End Select

    opDel = tekst
End Function

ja nu er der da lidt at arb. med.
svar pls.

Giv blot signal, hvis behov for yderligere....

Jeg er helt blank men det er jo et godt udgangspunkt for et selvstudium.
Jeg kaster mig over det en dag, det vigtigste for mig, er at vide at det kan lade sig gøre