Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige