Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox Eingabe prüfen

Betrifft: Textbox Eingabe prüfen von: Peter
Geschrieben am: 29.04.2008 16:06:16

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

  

Betrifft: AW: Textbox Eingabe prüfen von: selli
Geschrieben am: 29.04.2008 16:13:03

hallo peter,

versuchs mal so:
If sText * 1 < 0 Or sText * 1 > 24 Then sText = Left(sText, Len(sText) - 1)

gruß selli


  

Betrifft: AW: Textbox Eingabe prüfen von: selli
Geschrieben am: 29.04.2008 16:16:02

hallo peter,

oder besser so:

If TextBox1.Value * 1 < 0 Or TextBox1.Value * 1 < 24 Then sText = Left(sText, Len(sText) - 1)

gruß selli


  

Betrifft: AW: Textbox Eingabe prüfen von: Gerd L
Geschrieben am: 29.04.2008 19:31:59

Hallo Peter,

wo sitzt das Steuerelment?
In einer Userform ?
In einer Tabelle, eingefügt aus der Steuerelemente-Toolbox ?

Gruß Gerd


  

Betrifft: AW: Textbox Eingabe prüfen von: Peter
Geschrieben am: 30.04.2008 10:25:32

Hallo Gerd,

die Textbox ist in einer Userform.

Gruß Peter


  

Betrifft: AW: Textbox Eingabe nur 1 - 24 von: Gerd L
Geschrieben am: 30.04.2008 19:02:40

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


 

Beiträge aus den Excel-Beispielen zum Thema "Textbox Eingabe prüfen"