Office: Erzwingen von Dezimalzahl in Textbox

Hallo VBA-Experten,
ich hbae folgendes Problem
Ich gebe verschiedene Werte über eine Textbox ein
es dürfen dezimalzahlen mit 2 nachkommastellen eingegeben

z.b
ich gebe die zahl 4,3 ein dann, soll automatisch die zahl 4,30 generiert werden
oder wenn ich 1 eingebe das 1,00 generiert wird
möglich wäre auch nur eine abfrage das man IMMER 2 Nachkommstellen angeben muss
wäre sehr nett wenn ihr mir helfen könntet

:)

 

Hallo Fernando,

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format("0" & TextBox1, "#0.00")
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case 44, 46: KeyAscii = IIf(InStr(1, TextBox1, ",") = 0, 44, 0)
Case Else: KeyAscii = 0
End Select
End Sub





« Gruß Sepp »

 

einwandfrei dank dir

nur möchte ich noch das - minus Zecihen zulassen für negatvie Berechnungen
und das man nur max. 2 nachkommastellen eingeben kann
das wäre cool
danke

 

Hallo Fernando,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(IIf(Len(TextBox1), TextBox1, 0), "#0.00")
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57:
If InStr(1, TextBox1, ",") > 0 Then
KeyAscii = IIf(InStr(1, TextBox1, ",") > Len(TextBox1) - 2, KeyAscii, 0)
End If
Case 44, 46: KeyAscii = IIf(InStr(1, TextBox1, ",") = 0, 44, 0)
Case 45: KeyAscii = IIf(Len(TextBox1), 0, 45)
Case Else: KeyAscii = 0
End Select
End Sub





« Gruß Sepp »

 

servus sepp perfekt

doch ein problem ist mir gerade aufgefallen

wenn ich nun die 2 Textboxen addieren will und in einer textbox anzeigen lasse willl kommt dieses Problem
z.b
textbox1 = 2,11 und textbox2 = -1,11

meine Berechnung
TextBox3.Value = TextBox1.Value * 1 + TextBox2.Value * 1

dann zeigt er mir in Textbox3 = 1 an
aber osllte doch 1,00 angeben

wo könnte mein Denkgfehler sein??

ist mir gerade aufgefallen
dank dir

 

Hallo Fernando
Code:

gruss hary

 

hallo harry
funktioniert leider nicht
er zeigt nie die 2. Nachkommastelle an
woran kann das liegen?
2,11 +2,00 = 4,11 --> soweit richtig

doch bei

2,00 + 2,00 = 4 ---> doch er sollte 4,00 übernehmen

 

Hallo Fernado,

eine Textbox enthält, wie der Name ja schon vermuten lässt, Text und diesen Text muss man, wenn es sich um Zahlen handelt, entsprechend formatieren.

« Gruß Sepp »

 

dank dir sepp
funktioniert einwandfrei :-)