Wieso Formatierung bei 1,5 = 150,0
05.10.2004 14:05:46
Walter
habe ein kleines Problem.
In meiner UserForm habe ich eine CheckBox, die auch Funktioniert, + eine TextBox
die auch funktioniert.
Wenn der fest % Satz "reingeholt" wird von 1,2% zeigt richtig an.
Gebe ich 2,0 oder 3,0 also immer immer ohne die Zahl hinter dem Komma, funktioniert auch. Jedoch nicht wenn ich 1,5 eingebe, zeigt mir 150,0 an.
Wieso ?
Hier meine beiden Makros:
'------------- ASV Vermittler-Provisionssatz ---------------------------------
Private Sub CheckBox16_Click()
If CheckBox16 = True Then
TextBox21.BackColor = vbWhite
TextBox21.Enabled = True
TextBox21.SetFocus
If CheckBox16 = True And Worksheets("Kulanzblatt-VK").Range("H3").Value = "X" Then
Worksheets("Kulanzblatt-VK").Range("M18") = "1.2"
'ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("M18") = (TextBox21)
TextBox21 = Format(Worksheets("Kulanzblatt-VK").Range("M18").Text, ("0.0 %"))
With TextBox21
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
If CheckBox16 = True And Worksheets("Kulanzblatt-VK").Range("L3").Value = "X" Then
Worksheets("Kulanzblatt-VK").Range("M18") = "2.5"
TextBox21 = Format(Worksheets("Kulanzblatt-VK").Range("M18").Text, ("0.0 %"))
With TextBox21
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
End If
If CheckBox16 = False Then
Me.TextBox21.BackColor = Me.BackColor
TextBox21.Enabled = False
TextBox21.Value = "0.0 %"
Worksheets("Kulanzblatt-VK").Range("M18") = "0"
End If
End Sub
'------------- ASV Vermittler-Provisionssatz ---------------------------------
Private Sub TextBox21_AfterUpdate()
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("M18") = (TextBox21)
TextBox21 = Format(Worksheets("Kulanzblatt-VK").Range("M18").Text, ("0.0 %"))
End Sub
Formatierung der Zelle "M18" 0,0 "%".
Wo habe ich den BOKKK geschoßen ?
Gruß Walter
Anzeige