Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Not IsPLZ(txtEdit9.Text)..wie ist die Syntax?

If Not IsPLZ(txtEdit9.Text)..wie ist die Syntax?
15.11.2005 21:31:47
Peter
Hallo Liebe Helfer,
mit nachstehendem Code habe ich bei der Eingabe in eine Textbox auf einer Userform die Eingabe auf ein gültiges Datumsformat begrenzt, dies funktioniert sehr gut. Jetzt möchte ich, dass eine andere Textbox auf ein gültiges Postleitzahlenformat beschränkt wird:

Private Sub txtEdit6_Change()
If Len(Me.txtEdit6.Text) = 5 Then
If Not IsPLZ(txtEdit9.Text) Then
msgbox "Keine gültige PLZ, bitte im Format z.B. 90123 eingeben"
txtEdit6.Text = ""
txtEdit6.SetFocus
End If
End If
End Sub

Das Format "IsPLZ" ist nicht bekannt, kann da jemand eingreifen?
Vielen Dank für Hilfe
Peter S.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Not IsPLZ(txtEdit9.Text)..wie ist die Syntax?
15.11.2005 21:46:24
DieterB
if not isnumeric then.....
Obwohl Textboxen eben Textboxen sind.
Gruß DieterB
Ja sind TextBoxen, dafür aber net ohne..grins
16.11.2005 13:20:08
Peter
Hallo Dieter,
obwohl es TextBoxen sind, mit der nachstehenden Kombination zweier Codes kannst die Sache ganz gut steuern...aber auf jeden Fall vielen Dank.

Private Sub txtEdit6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim xLen As Integer
xLen = Len(txtEdit6.Text)
If xLen > 0 And xLen < 5 Then
Cancel = True
ElseIf xLen > 5 And xLen < 100 Then
Cancel = True
End If
End Sub


Private Sub txtEdit6_Change()
If Len(Me.txtEdit6.Text) = 5 Then
If Not IsNumeric(txtEdit6.Text) Then
txtEdit6.Text = ""
txtEdit6.SetFocus
End If
End If
End Sub

Anzeige

294 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige