Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Inhalt von Textfeld überprüfen
zurück: MailMerge.Fields.Count berücksichtigt Kopf und Fuss nicht weiter: Bei auswahl in Dropdown Menü ... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Kaiplanet
Neuling


Verfasst am:
06. Okt 2007, 23:24
Rufname: Kai

Inhalt von Textfeld überprüfen - Inhalt von Textfeld überprüfen

Nach oben
       Version: Office 2k (2000)

Hallo,

habe folgendes Problem. Ich habe ein Formular mit mehreren Textfeldern jedoch soll ein Textfeld überprüft werden auf a) das es nur Zahlen sind und b) das es genau 15 stellen sind.
Die überprüfung das es nur Zahlen sind, habe ich gelöst:
Code:
Private Sub nurZahlen1()
Dim Abfrage As Boolean
Abfrage = IsNumeric(TextBox1)
If Abfrage = False Then
MsgBox ("Bitte geben Sie nur Ziffern ein!")
SendKeys "{BS}", Wait:=True
End If
End Sub


Aber bei der Überprüfung von den 15 Stellen bin ich überfragt, muß aber auch dazu sagen, das ich Laie bin.

Kann mir da irgendwer weiterhelfen??

Gruß

Kai
SGast
Gast


Verfasst am:
07. Okt 2007, 10:38
Rufname:


AW: Inhalt von Textfeld überprüfen - AW: Inhalt von Textfeld überprüfen

Nach oben
       Version: Office 2k (2000)

Hallo,
es gibt verschiedenste Varianten.
Code:
If Not (TxtBox1 Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]") Then
    MsgBox "falsch"
End If
' oder
If Not (TxtBox1 Like "###############") Then
    MsgBox "falsch"
End If
' oder
If TxtBox1 Like "*[!0-9]*" Or Len(TxtBox1) <> 15 Then
    MsgBox "falsch"
End If


Btw: IsNumeric hilft dir nicht sonderlich, da damit auch Komma und Punkt war sind
Direktfenster hat folgendes geschrieben:
? isnumeric ("1.000,12")
Wahr


Gruß Steffen
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
07. Okt 2007, 15:10
Rufname:
Wohnort: Leipzig

AW: Inhalt von Textfeld überprüfen - AW: Inhalt von Textfeld überprüfen

Nach oben
       Version: Office 2k (2000)

Hallo zusammen,

es geht auch noch einfacher. Mit dem KeyPress-Ereignis kann man verhindern, dass andere Zeichen als Zahlen in das Textfeld eingegeben werden:
Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' erzwingt die Eingabe von Ansi-Zeichen zwischen 48 bis 57, also 0 bis 9
    ' kann natürlich genauso für andere Ansi-Zeichen angepasst werden

  Select Case KeyAscii
    Case 48 To 57
    Case Else: KeyAscii = 0
  End Select

End Sub

Alle anderen Tastatureingaben werden gar nicht angenommen, könnte man natürlich auch noch mit einer ordentlichen Fehlermeldung für den User bestücken.
Um die Länge genau zu erzwingen, einfach die im Exit-Ereignis die Länge des Feldes checken:
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ' testet die Eingabe im Feld auf ihre Länge
    ' kann mit beliebigen anderen Tests gefüllt werden
   
    If Len(TextBox1.Text) <> 15 Then
        MsgBox "Es müssen genau 15 Ziffern eingegeben werden!"
    End If
       
End Sub

Auch im Exit-Ereignis kann man natürlich noch andere Sachen checken, klar.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Kaiplanet
Neuling


Verfasst am:
09. Okt 2007, 11:53
Rufname: Kai


AW: Inhalt von Textfeld überprüfen - AW: Inhalt von Textfeld überprüfen

Nach oben
       Version: Office 2k (2000)

hallo,

super ich könnt euch KNUTSCHEN. Funktioniert super, ich danke euch!!!!!

Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy


Gruß

Kai
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Datenfelder vergleichen mit Inhalt Combobox 0 Christoph Wyrsch 90 07. Feb 2014, 18:47
Christoph Wyrsch Datenfelder vergleichen mit Inhalt Combobox
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Textfeld 13 kleiner Gast 501 15. Jan 2013, 09:58
kleiner Gast Serienbrief mit Textfeld
Keine neuen Beiträge Word Serienbriefe: Ref Textfeld 0 S.K.K: 193 08. Okt 2012, 08:58
S.K.K: Ref Textfeld
Keine neuen Beiträge Word Serienbriefe: DOCVariable prüfen und ggf. Leerzeichen vor den Inhalt setze 0 FMMarkus 401 13. Sep 2012, 09:26
FMMarkus DOCVariable prüfen und ggf. Leerzeichen vor den Inhalt setze
Keine neuen Beiträge Word Serienbriefe: Serienbrief Nächster Datensatz in Textfeld 2 Hadulla 2724 16. März 2012, 17:19
Hadulla Serienbrief Nächster Datensatz in Textfeld
Keine neuen Beiträge Word Formate: Textfeld mit limitierter Anzahl Zeichen als Eingabefeld 1 BetaRide99 1509 13. Jul 2011, 17:07
G.O.Tuhls Textfeld mit limitierter Anzahl Zeichen als Eingabefeld
Keine neuen Beiträge Word Formate: Formular erstellen; Kontrollhärcken setzen; Textfeld ausfüll 3 Jannils 1390 23. Jun 2011, 19:42
Jannils Formular erstellen; Kontrollhärcken setzen; Textfeld ausfüll
Keine neuen Beiträge Word Formate: Inhalt-, Tabellen-, Abbildungsverzeichnis Word 2010 1 Rimo 2209 23. März 2011, 15:36
G.O.Tuhls Inhalt-, Tabellen-, Abbildungsverzeichnis Word 2010
Keine neuen Beiträge Word Formate: Formular: Textfeld trotz Schutz bearbeiten 3 Teck 2622 26. Nov 2010, 19:46
Wolfgang 1958 Formular: Textfeld trotz Schutz bearbeiten
Keine neuen Beiträge Word Formate: Kopfzeile auch als Textfeld? 5 mf82 585 22. Apr 2010, 16:54
Gast Kopfzeile auch als Textfeld?
Keine neuen Beiträge Word Formate: Textfeld in Vorlage nicht änderbar 4 de.trina 3324 13. Apr 2010, 09:06
de.trina Textfeld in Vorlage nicht änderbar
Keine neuen Beiträge Word Formate: Textfeld mit tabelle wird nicht ausgedruckt 0 cadillac 493 04. Feb 2010, 01:27
cadillac Textfeld mit tabelle wird nicht ausgedruckt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum