If Not IsPLZ(txtEdit9.Text)..wie ist die Syntax?
15.11.2005 21:31:47
Peter
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.