TextBox formatieren...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Benny
Versuch mal dieses:


Private Sub TextBox1_Change()
If Val(Textbox1.Text) < 0 And Val(Textbox1.Text) > 3 Then
MsgBox "Falscher Wert"
Textbox1.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub


Private Sub TextBox2_Change()
If Val(Textbox2.Text) < 0 And Val(Textbox2.Text) > 9 Then
MsgBox "Falscher Wert"
Textbox2.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub


Private Sub TextBox3_Change()
If Val(Textbox3.Text) < 0 And Val(Textbox1.Text) > 1 Then
MsgBox "Falscher Wert"
Textbox3.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub


Private Sub TextBox4_Change()
If Val(Textbox4.Text) < 0 And Val(Textbox4.Text) > 2 then
MsgBox "Falscher Wert"
Textbox4.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub


Private Sub TextBox5_Change()
If Val(Textbox5.Text) < 0 And Val(Textbox5.Text) > 9 then
MsgBox "Falscher Wert"
Textbox5.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub


Private Sub TextBox6_Change()
If Val(Textbox6.Text) < 0 And Val(Textbox6.Text) > 9 then
MsgBox "Falscher Wert"
Textbox6.Text = ""
Textbox3.SetFocus
...Dein weiterer Code....
End If
End Sub

Vielleicht konnte ich Dir ja helfen.
Ciao
Thorsten

Hallo Benny!
Probier mal.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox1)
    Case 0
        Select Case KeyAscii
            Case 48 To 51
            Case Else
            KeyAscii = 0
            MsgBox "nur Zahlen zwischen 0 und 3 erlaubt"
        End Select
    Case 1
        Select Case KeyAscii
            Case 48 To 57
            Case Else
            KeyAscii = 0
            MsgBox "nur Zahlen zwischen 0 und 9 erlaubt"
        End Select
    Case 2
        Select Case KeyAscii
            Case 48 To 49
            Case Else
            KeyAscii = 0
            MsgBox "nur Zahlen zwischen 0 und 1 erlaubt"
        End Select
    Case 3
        Select Case KeyAscii
            Case 48 To 50
            Case Else
            KeyAscii = 0
            MsgBox "nur Zahlen zwischen 0 und 2 erlaubt"
        End Select
    Case 4 To 5
        Select Case KeyAscii
            Case 48 To 57
            Case Else
            KeyAscii = 0
            MsgBox "nur Zahlen zwischen 0 und 9 erlaubt"
        End Select
    Case Else
        KeyAscii = 0
        MsgBox "Die Zahl darf maximal 6 Stellen aufweisen"
End Select
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread