AW: Prozenteingabe in Textfeld
04.12.2005 11:27:40
gert
Hallo Hajo,
Das Thema Eingabefeld habe ich gelöst.
Im Sheet steht jedoch ein falscher Wert.
Folgende Befehlskette habe ich verwendet:
Private Sub TextBox172_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Not IsNumeric(CDbl(Me.TextBox172)) Then
If Me.TextBox172 = "" Then Exit Sub
MsgBox "Unzulässige Eingabe"
Me.TextBox172 = ""
Cancel = True
Exit Sub
End If
On Error GoTo 0
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case CDbl(Me.TextBox172.Value)
Case Is <= 0.1
Me.TextBox172.Text = Format(CDbl(Me.TextBox172) * 10, "##,##0.00") & " %"
Case Is <= 1
Me.TextBox172.Text = Format(CDbl(Me.TextBox172) * 1, "##,##0.00") & " %"
Case Is <= 10
Me.TextBox172.Text = Format(CDbl(Me.TextBox172), "##,##0.00") & " %"
Case Is >= 100
MsgBox "Unzulässiger Prozentwert"
Me.TextBox172 = ""
End Select
Range("d31") = TextBox172
TextBox172.BackColor = &H80000005
End Sub
Im Feld D31 steht als Textfeld 0,90%. Hier soll jedoch eine Zahl 0,009 stehen.
Wie muß die Textbox172 in die Tabelle zurückgeschrieben werden?
Viele Grüsse
Gert