hab dich nicht vergessen...
23.01.2003 01:05:08
L.Vira
Die eigentliche Aktion ist ganz einfach, aber das Verhindern von Fehleingaben
ist der Knackpunkt.
-sicherstellen, dass nur Zahlen und / eingegeben werden können.
-sicherstellen, dass / nur einmal vorkommen darf.
-sicherstellen, dass / nicht am Anfang oder am Ende steht.Die Namen der controls musst du halt anpassen:
Option Explicit
Private Sub cmdOK_Click()
Dim I As Integer, L As Integer, Z As Integer, X As Integer
Dim A As Double, B As Double
I = InStr(txt1, "/")
L = Len(txt1)
If I < 2 Or L < 3 Or I = L Then Exit Sub
If I > 0 And L < I + 1 Then Exit Sub
For Z = 1 To L
If Mid(txt1, Z, 1) = "/" Then
X = X + 1
End If
Next
If X > 1 Then
Me.Caption = "Nur 1 Slash erlaubt!"
txt1 = ""
txt1.SetFocus
Exit Sub
End If
A = CDbl(Left(txt1, I - 1))
B = CDbl(Mid(txt1, I + 1, L))
[a1] = A
[b1] = B
End Sub
Private Sub txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 47 To 57
Case Else: KeyAscii = 0
End Select
End Sub