Office: Textbox füllen mit einem bestimmten Format

Hallo zusammen,
folgende Frage habe ich:
In einer UserForm berechne ich die MwST. Nun möchte ich das die Zahlen in den Textboxen auf zwei Stellen hinter dem Komma begrenzt werden. Mit "Format" komme ich nicht weiter.
Vielen Dank für die Hilfe
Gruß Norbert
Beispiel aus dem Codde:

Code:

        If TextBox1 <> "" And OptionButton2 = True Then
        a = TextBox1
        b = a * "6,542056074766" / 100
        TextBox2 = Format(b, "#,##")
        TextBox3 = a - b

Der komplete Code mit Userform ängt an.

 

Hallo Norbert,

Code:

Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   Ansatz VB 6 Buch von Peter Monadjemi
'   nur Zahlen, ein Komma und nur 2 Stellen nach Komma
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
            If InStr(TextBox8, ",") <0> 1 Then KeyAscii = 0
            End If
        Case Asc("."), Asc(",")
            If InStr(TextBox8, ",") <> 0 Then
                KeyAscii = 0
            Else
                KeyAscii = Asc(",")
            End If
        Case Asc(vbBack)
            '       Eingabe von minus
        Case Asc("-")
            '            If Len(Textbox8) = 0 Then
            '                If InStr(Textbox8, "-") <0>= 1 And Left(TextBox8, 1) <Then>= 1 Then
        BoWert = True
        If Left(TextBox8, 1) = "-" Then
            TextBox8 = "-" + Replace(TextBox8, "-", "")
        Else
            TextBox8 = Replace(TextBox8, "-", "")
        End If
    End If
    If BoWert = True Then MsgBox "Ein Minus darf nur an erster Stelle stehen! Beispiel: -123,45"
End Sub

Gruß Hajo

 

Danke Hajo für die schnelle Antwort, aber ich befürchte dein Code bei meinem Code mit Anwenden übersteigt mein momentanes Excel-können.
Gruß Norbert

 

Hallo Norbert,

ich hätte das nicht als schwierig angesehen Textbox8 durch Deinen Namen zu ersetzen. Wenn Du meinst das ist zu schwierig, will ichg Dir nicht wiedersoprechen.
Ich glaube da fehlt noch Code.

Code:

Private Sub Textbox8_Change()
'   Eingabe von Minus auch nachträglich
'   diese Code ist eine gemeinasme Arbeit von Hajo und
'   theonlyrobi (Robert) aus dem Forum
'   [url]http://www.ms-office-forum.net/forum/forumdisplay.php?s=&forumid=29[/url]
    Dim BoWert As Boolean
    If InStr(TextBox8, "-") >= 1 And Left(TextBox8, 1) <Then>= 1 Then
        BoWert = True
        If Left(TextBox8, 1) = "-" Then
            TextBox8 = "-" + Replace(TextBox8, "-", "")
        Else
            TextBox8 = Replace(TextBox8, "-", "")
        End If
    End If
    If BoWert = True Then MsgBox "Ein Minus darf nur an erster Stelle stehen! Beispiel: -123,45"
End Sub

Gruß Hajo

 

Sorry Hajo,
habe beide Codes von kopiert und eingefügt. Beide laufen bei mir nur mit Fehlern. Textbox8 ersetzte ich durch Textbox1.
Trotzdem Danke für die angebotene Hilfe.
Gruß Norbert

 

Hallo Posaune,

bei mir klappt:

Code:

If Not IsNumeric(TextBox1) Then
TextBox1 = ""
End If
TextBox1 = Format(TextBox1, "#,##0.00")

hoffe Du kannst was damit anfangen

 

Hallo Achim,
Danke funktioniert. MEin Fehler war, nehme ich an, dass ich die Rauten und Nuller nicht exact übernommen hatte.
Danke
Gruß Norbert