OK,
so klappt es dann schon besser,
wobei mir die Messagebox da nicht gefällt und die falschen Werte auch stehen bleiben, auch wenn man dann permanent per Messagebox benachrichtigt wird.
CodeTags korrigiert ~VaporiZed
so klappt es dann schon besser,
wobei mir die Messagebox da nicht gefällt und die falschen Werte auch stehen bleiben, auch wenn man dann permanent per Messagebox benachrichtigt wird.
Visual Basic-Quellcode
- Dim values() As String
- Dim i As Integer
- values() = Split(txtA.Text, ",")
- If UBound(values) = 15 Then
- txtA.Text = Mid(txtA.Text, 1, Len(txtA.Text) - 1)
- Else
- For i = 0 To UBound(values())
- If values(i) <> "" Then
- If cint(values(i)) < 1 Or cint(values(i)) > 53 Then
- MsgBox "Wert falsch"
- Exit For
- End If
- End If
- Next i
- End If
CodeTags korrigiert ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()