Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1480to1484
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
Inhaltsverzeichnis

Userform

Userform
15.03.2016 22:01:36
Falo
Hallo,
ich möchte in einer Textbox (PLZ) abfragen, es dürfen nicht mehr als fünf Zeichen sein das klappt mit dem Makro. es dürfen aber auch nicht weniger als fünf Zeichen sein, könnt Ihr mir bitte einen Tipp geben.
  • Private Sub TextBox6_Change()
    If Len(TextBox6.Text) > 5 Then
    TextBox6.Text = Left(TextBox6.Text, 5)
    MsgBox "Das ist kein gültiges Format für eine PLZ!"
    End If
    End Sub
    

  • Gruß
    Olaf

  • 5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Userform
    15.03.2016 22:23:13
    Werner
    Hallo Olaf,
    Private Sub TextBox6_Change()
    If Len(TextBox6.Text) > 5 Or Len(TextBox6.Text 
    Gruß Werner
    

    AW: Userform
    15.03.2016 22:45:39
    Falo
    Hallo Werner,
    Danke
    Du hast eine klammer vergessen und was bedeutet das nach End Sub
    sobald ich ein Zeichen eingebe kommt die Meldung
    If Len(TextBox6.Text) > 5 Or Len(TextBox6.Text")"

    AW: Userform
    15.03.2016 23:06:43
    Werner
    Hallo Olaf,
    sorry, aber das mit der fehlenden Klammer hast du ja selbst bemerkt. Nach dem End Sub darf nichts mehr stehen. Ist mir beim rein kopieren passiert, gehört da nicht hin.
    Stimmt, du benutzt ja das TextBox_Change - Event. Nimm doch einfach das TextBox_Exit - Event und Pack den Code da rein. Dann wird der Inhalt der TextBox erst geprüft,wenn du sie verlässt. Nach der MsgBox dann
    noch ein TextBox6.SetFocus rein, damit der Cursor in der TextBox bleibt.
    Gruß Werner

    Anzeige
    AW: Userform
    15.03.2016 23:57:45
    Falo
    Hallo Werner,
    Danke, ich habe es so gemacht.
  • 
    Private Sub Textbox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox6.Text) > 5 Or Len(TextBox6.Text) 

  • LG
    Olaf

    AW: Danke für die Rückmeldung owT
    16.03.2016 09:58:49
    Werner

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige