UserFrom - formatering af tal

Ja, nu ved jeg ikke lige hvordan du indsætter din tekst, men det kunne se således ud

måden du indsætter din tekst på = Format(Textbox1.Text, "#.##0,00")

jeg indsætter koden med denne

Kildekode.SkrivTilBogmaerke "pris", pris

Public Sub SkrivTilBogmaerke(bmkName As String, bmkNyText As String)
    '**** Indsætter bogmærketekst og opretter det igen.
    '**** Bemærk at hvis to bogmærker, "hænger sammen", udvides det til højre, til
    '**** at indehold det til venstre. Ex. [venstre][højre] bliver til [[nyvenstre]højre]
    If ActiveDocument.Bookmarks.Exists(bmkName) = True Then
        ActiveDocument.Bookmarks(bmkName).Select
        If Not ActiveDocument.Bookmarks(bmkName).Range.Text = "" Then
            Selection.Range.Delete
        End If
       
        If Not bmkNyText = "" Then 'Indsætter tekst (og sletter bokmærke)
            '**** Sletter evt. overflødige linieskift.
            While Asc(Right(bmkNyText, 1)) = 13 Or Asc(Right(bmkNyText, 1)) = 10
                bmkNyText = Left(bmkNyText, Len(bmkNyText) - 1)
            Wend
            Selection.TypeText "." 'Bruges til at bevare bogmærket
            Selection.MoveLeft wdCharacter, 1, wdExtend
            Selection.Bookmarks.Add bmkName
            Selection.MoveLeft wdCharacter, 1
            Selection.TypeText bmkNyText
            Selection.Range.Delete
        Else
            Selection.Bookmarks.Add bmkName
        End If
    End If
End Sub

Du skal vel kalde bogmærke makroen således:

Kildekode.SkrivTilBogmaerke "pris", Format(Texktbox1.Text,"#.##0,00")

Kildekode.SkrivTilBogmaerke "pris", Format(pris.Text, "#.##0,00")

den kommer til at se sådan ud

5000,000000

Så byt om på punktum og komma "#,##0.00"

det hjalp ... tak for hjælpen

:-)