UF-Textbox prüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: UF-Textbox prüfen
von: Ludmila
Geschrieben am: 06.06.2015 13:01:27

Hallo,
ich möchte gerne das eine Textbox geprüft wird und wenn die Bedingung nicht erfüllt ist
zur Textbox zurück gesprungen wird.
Die Prüfung stimmt, jedoch der Rücksprung funkt nicht.
Danke!
Gruß
Ludmila
https://www.herber.de/bbs/user/98066.xlsm

Bild

Betrifft: AW: UF-Textbox prüfen
von: fcs
Geschrieben am: 06.06.2015 13:33:22
Hallo Ludmilla,
für eine Textbox, in die 8 Ziffern eingetragen werden müssen, sind folgende Makros erforderlich.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1.Value) <> 8 Then
        MsgBox "8 Ziffern müssen eingegeben werden"
        Cancel = True
    End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Nur Eingabe von Ziffern möglich, andere Zeichen werden geblockt
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
            'Eingabe zulässig
        Case Else
            KeyAscii = 0
    End Select
End Sub

Zusätzlich solltest du die Eigenschaft "maxLength" auf 8 setzen.
Gruß
Franz

Bild

Betrifft: AW: UF-Textbox prüfen
von: Sepp
Geschrieben am: 06.06.2015 13:40:18
Hallo Ludmila,

' **********************************************************************
' Modul: frm8Zahlen Typ: Userform
' **********************************************************************


Option Explicit

Private Sub cmdexit_Click()
  Unload Me
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Len(TextBox1) <> 8 Then
    MsgBox "Bitte eine 8-Stellige Nummer eingeben!"
    Cancel = True
  End If
End Sub


'Eingabebeschränkung 8 Zahlen
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case Len(TextBox1)
    Case 0 To 7
      Select Case KeyAscii
        Case 48 To 57
        Case Else
          KeyAscii = 0
      End Select
    Case Else
      KeyAscii = 0
  End Select
End Sub


Private Sub UserForm_Initialize()
  TextBox1.SetFocus
End Sub


Gruß Sepp


Bild

Betrifft: AW: UF-Textbox prüfen
von: Ludmila
Geschrieben am: 06.06.2015 14:11:45
Vielen Dank an Euch beide.
Gruß
Ludmila

 Bild

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