Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textbox Eingabe prüfen

Textbox Eingabe prüfen
29.04.2008 16:06:16
Peter
Hallo,
kann mir jemand sagen, was ich falsch mache. Ich habe eine Textbox, die nur Werte zwischen 0 und 24 annehmen darf. Wenn ich nun z.B. 15 als Wert habe, bekomme ich immer Falsch bei der Bedingung.
Dim sText as String
sText = TextBox1.Text
If sText Like "[0-24]" = False Then sText = Left(sText, Len(sText) - 1)
Grüße Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox Eingabe prüfen
29.04.2008 16:13:00
selli
hallo peter,
versuchs mal so:
If sText * 1 24 Then sText = Left(sText, Len(sText) - 1)
gruß selli

AW: Textbox Eingabe prüfen
29.04.2008 16:16:02
selli
hallo peter,
oder besser so:
If TextBox1.Value * 1 < 0 Or TextBox1.Value * 1 < 24 Then sText = Left(sText, Len(sText) - 1)
gruß selli

AW: Textbox Eingabe prüfen
29.04.2008 19:31:00
Gerd
Hallo Peter,
wo sitzt das Steuerelment?
In einer Userform ?
In einer Tabelle, eingefügt aus der Steuerelemente-Toolbox ?
Gruß Gerd

AW: Textbox Eingabe prüfen
30.04.2008 10:25:00
Peter
Hallo Gerd,
die Textbox ist in einer Userform.
Gruß Peter

AW: Textbox Eingabe nur 1 - 24
30.04.2008 19:02:40
Gerd
Hallo Peter,
die letzte Bedingung kann entfallen wenn die MaxLength der Textbox im Eigenschaftenfenster im VBA-Editor auf 2 gestellt wird.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1.Text) = 0 Then  '1. Stelle
Select Case KeyAscii
Case 48 To 57               'nur Ziffern 0-9
Case Else
KeyAscii = 0
End Select
ElseIf Len(TextBox1.Text) = 1 Then   '2. Stelle
Select Case Left$(TextBox1.Text, 1)
Case "1"  '1. Stelle= 1
Case "2"  '1. Stelle= 2
Select Case KeyAscii
Case 48 To 52 '2. Stelle nur Ziffern 0-4
Case Else
KeyAscii = 0
End Select
Case Else '1. Stelle= 0 oder 3 - 9
KeyAscii = 0
End Select
Else   '3. Stelle
KeyAscii = 0
End If
End Sub


Gruß Gerd

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige