Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UF-Textbox prüfen

Forumthread: UF-Textbox prüfen

UF-Textbox prüfen
06.06.2015 13:01:27
Ludmila
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UF-Textbox prüfen
06.06.2015 13:33:22
fcs
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

Anzeige
AW: UF-Textbox prüfen
06.06.2015 13:40:18
Sepp
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

Anzeige
AW: UF-Textbox prüfen
06.06.2015 14:11:45
Ludmila
Vielen Dank an Euch beide.
Gruß
Ludmila
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige