Mit Textboxen rechnen
Steffen
vielleicht könntest Ihr mir bei meiner nächsten Frage auch behilflich sein. Ich habe ein Modul geschrieben:
Sub Rechnen()
With frm1
If IsNumeric(.txt1.Value) And IsNumeric(.txt2.Value) Then
If Val(.txt2.Value) 0 Or Val(.txt1.Value) 0 Then
.txt3.Value = .txt1.Value / .txt2.Value
.txt1.Value = Format(.txt1.Value, "#,###0.000")
.txt2.Value = Format(.txt2.Value, "#,###0.000")
.txt3.Value = Format(.txt3.Value, "#,###0.000")
End If
End If
End With
End Sub
Ich wollte damit erreichen, dass die Zahlen mit 3 Kommastellen zu sehen sind. Dies geht auch bis 9 eine 10 kann ich nicht eingeben. Was mache ich falsch?
Gruß
Steffen
Anzeige