Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

Forumthread: 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.
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige