komma i formular

prøv

TextBox1 = Excel.WorksheetFunction.Substitute(TextBox1.Value, ",", ".")
Range("A2").Value = TextBox1.Value

Yes. Det hjalp, men nu regner det bare forkert.
En udregning som denne:
TxtFakturering = (([TxtLøn] * 160.33) * [TxtPeriode]) * [TxtAntal]

giver 7.828.112,25
Det rigtige beløb er 78.281,12

Alternativ:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = Format(TextBox1.Text, "###,##0.00")      'testformat
    tal1 = Val(cleanTal(TextBox1.Text))
   
    Range("A2").Value = tal1            'evt. formatter cellen m/separator
End Sub
Private Function cleanTal(tal)
Dim f, nytal
    nytal = ""
    For f = 1 To Len(tal)
        If Mid(tal, f, 1) <> "." Then
            If Mid(tal, f, 1) = "," Then
                nytal = nytal + "."
            Else
                nytal = nytal + Mid(tal, f, 1)
            End If
        End If
    Next f
    cleanTal = nytal
End Function

hmm. Der er da sket et eller andet....
Nu giver det 782811225

Jeg har lagt din private function cleanTal ind.

Når man klikker på den knap der skal vise beløb afvikles følgende:


Private Sub CommandButton1_Click()
Dim tal1 As String
    If Ob1.Value = True Then
        TxtFakturering = (([TxtLøn] * 160.33) * [TxtPeriode]) * [TxtAntal]
    End If
    If Ob2.Value = True Then
        TxtFakturering = ((([TxtLøn] * 12) * 10) / 100) * [TxtAntal]
    End If
    If Ob3.Value = True And Ob4.Value = True Then
        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 7.4) * [TxtAntal])
    End If
    If Ob3.Value = True And Ob5.Value = True Then
        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 37) * [TxtAntal])
    End If
    If Ob3.Value = True And Ob6.Value = True Then
        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 160.33) * [TxtAntal])
    End If
    TxtLøn = Excel.WorksheetFunction.Substitute(TxtLøn.Value, ",", ".")
    TxtLøn.Value = TxtLøn.Value
    TxtFakturering.Text = Format(TxtFakturering.Text, "###,##0.00")      'testformat
    tal1 = Val(cleanTal(TxtFakturering.Text))
    TxtFakturering.Value = tal1            'evt. formatter cellen m/separator
    Me.TxtFakturering.Visible = True
End Sub

Jeg tror du skal prøve at Rem'e "substitute-sætningen" - ?

Eneste ændring er at txtløn står med , og ikke .
Beløbet i txtfakturering er det samme.

Ok - hvordan indtaster du beløbet i formularen  - eksempel m/7.828.112,25
som 7828112,25 eller 7.828.112,25?

OK - vi går forbi hindanden..

Jeg taster i 3 felter
TxtLøn
TxtPeriode
TxtAntal

Det er kun TxtLøn der kan være med decimaltal og i så fald bliver det tastet med ,
Resultatet kommer i TxtFakturering

Det hele er i en formular.

Har set nærmere på det - dette er måske bedre:

*** OBS Test-version***

Private Sub commandbutton1_click()
Dim tal1
'    If Ob1.Value = True Then
'        TxtFakturering = (([TxtLøn] * 160.33) * [TxtPeriode]) * [TxtAntal]
'    End If
'    If Ob2.Value = True Then
        TxtFakturering = ((([TxtLøn] * 12) * 10) / 100) * 10
'    End If
'    If Ob3.Value = True And Ob4.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 7.4) * [TxtAntal])
'    End If
'    If Ob3.Value = True And Ob5.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 37) * [TxtAntal])
'    End If
'    If Ob3.Value = True And Ob6.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 160.33) * [TxtAntal])
'    End If
   
'    TxtLøn = Excel.WorksheetFunction.Substitute(TxtLøn.Value, ",", ".")
'    TxtFakturering.Text = " 78.281,12"

    tal1 = cleanTal(TxtFakturering)
    TxtFak = Val(tal1)
     
    Range("B3").Value = Format(TxtFak, "###,##0.00")
    Range("B3").HorizontalAlignment = xlRight

End Sub
Private Function cleanTal(tal)
Dim f, nytal
    nytal = ""
    For f = 1 To Len(tal)
        If Mid(tal, f, 1) <> "." Then
            If Mid(tal, f, 1) = "," Then
                nytal = nytal + "."
            Else
                nytal = nytal + Mid(tal, f, 1)
            End If
        End If
    Next f
    cleanTal = nytal
End Function

Du vil stadig have det over i et ark før du formaterer det til valuta?
Resultatet skal komme i formularen (feltet txt.fakturering)

Private Sub commandbutton1_click()
Dim tal1
   
'    If Ob1.Value = True Then
'        TxtFakturering = (([TxtLøn] * 160.33) * [TxtPeriode]) * [TxtAntal]
'    End If
'    If Ob2.Value = True Then
        TxtFakturering = ((([TxtLøn] * 12) * 10) / 100) * 10
'    End If
'    If Ob3.Value = True And Ob4.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 7.4) * [TxtAntal])
'    End If
'    If Ob3.Value = True And Ob5.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 37) * [TxtAntal])
'    End If
'    If Ob3.Value = True And Ob6.Value = True Then
'        TxtFakturering = ((([TxtLøn] * [TxtPeriode]) * 160.33) * [TxtAntal])
'    End If
    tal1 = cleanTal(TxtFakturering)

    TxtFakturering = Format(tal1, "###,##0.00")

    Range("A2").Value = TxtFakturering
    Range("A2").HorizontalAlignment = xlRight
End Sub
Private Function cleanTal(tal)
Dim f, nytal
    nytal = ""
    For f = 1 To Len(tal)
        If Mid(tal, f, 1) = "." Then
            nytal = nytal + ","
        Else
            nytal = nytal + Mid(tal, f, 1)
        End If
    Next f
    cleanTal = nytal
End Function

Du er for cool :-)
Tak

Selv tak - her er så et svar!