AW: noch ein Zusatz-Tipp für Faule ;-)
10.03.2009 22:08:50
Frank
Hallo Ihr fleißigen Helfer!!!
Steh auf dem Schlauch! Vielleicht hat meine Festplatte im Hirn schon einen Riss!!!?
Funzt nicht, da ich vielleicht schon zu viel der TextBox hinterlegt habe! Folgende Codes gibt es schon:
'CommandButton1.Enabled Standart auf False setzen
Private Sub TextBox5_Change()
If IsNumeric(TextBox5.Text) And InStr(TextBox5, ",") = 0 Then
Me.TextBox5.Value = Me.TextBox5.Value / 100
End If
Dim PunktOderKomma As String
PunktOderKomma = IIf("0.5" * 2 = 1, ".", ",")
If Len(TextBox5) > 0 Then
If Len(TextBox5) - InStrRev(TextBox5, PunktOderKomma) > 1 And InStr(TextBox5, _
PunktOderKomma) > 0 Then
Me.CommandButton1.Enabled = True
Me.CommandButton1.SetFocus
Else
Me.CommandButton1.Enabled = False
End If
Else
Me.CommandButton1.Enabled = False
End If
End Sub
'Nur Zahlen zulassen
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim PunktOderKomma As String
PunktOderKomma = IIf("0.5" * 2 = 1, ".", ",")
If KeyAscii = 44 Or KeyAscii = 46 Then
If InStr(TextBox5, PunktOderKomma) = 0 And Len(TextBox5) > 0 Then
KeyAscii = IIf("0.5" * 2 = 1, 46, 44)
Else
KeyAscii = 0
End If
Else
Select Case KeyAscii
Case 48 To 57: KeyAscii = KeyAscii
Case Else: KeyAscii = 0
End Select
End If
End Sub
Wo liegt nun mein Problem?
Danke und Gruß Frank H.