Excel 2003 UserForm Format für Eingabefeld ?

Computer: Software & Programmierung Office Software
1

Hallo
ich habe in Excel 2003 eine UserForm erstellt.
Auf dieser Eingabemaske habe ich eine ungebundene TextBox für die Eingabe von Zahlen.

Kann ich da (wie) ein Format angeben, ich möchte da nur Zahlen mit Tausendertrennzeichen haben.
Danke

2

TextBox4.Value = Format(vkpreis, „#,##0.0000 €“)

3

Hallo SAM.

Ich denke, Du meinst etwas in der Art wie das Folgende:

Private Sub TextBox1\_Enter()
 On Error GoTo Fehler
 TextBox1.Text = CDbl(TextBox1.Text) \* 1
Ende:
 Exit Sub
Fehler:
 Resume Ende
End Sub

Private Sub TextBox1\_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox1.Text = FormatNumber(CDbl(TextBox1.Text) \* 1, -1, vbUseDefault, vbUseDefault, vbUseDefault)
End Sub

Private Sub TextBox1\_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Select Case KeyAscii
 Case 8, 44, 48 To 57 'Backspace, Komma, Null bis Neun
 Case Else
 KeyAscii = 0
 Beep
 End Select
End Sub

Vielleicht hilft Dir das ja.

Viele Grüße
Carsten