Office: (Office 2013) Funktion bei Ereignis mit Variablenübergabe

Hallo,

ich möchte gern für 20 ungebundene Textfelder die Eingabe von allem außer Zahlen sperren. Da beim Change Ereignis bereits der Filter arbeitet, muss die Eingabe sofort geprüft werden. Ich möchte ungern 20 Ereignisprozeduren in VBA aufmachen und überall Call xxx schreiben. Deswegen dachte ich, ich schreibe eine Funktion, markiere die 20 Textfelder und trage dort bei "Taste ab" eine Function ein. Ohne Variablen Übergabe kann ich so z.B. eine msgBox aufrufen. Diesen Code bekomme ich aber nicht eingebettet:

Er steht in einem eigenen Modul und ist noch nicht auf "nur Zahlen" angepasst, aber das ist kein Problem.

Code:

Im Formular steht bei dem Textfeld Ereignis: Code:

Fehler: "..Ausdruck ist syntaktisch falsch."

Könnt ihr mir bitte helfen?

LG Georg

Edit: txtSStanzKastenLmin muss dann natürlich noch irgendwie allgemein gehalten werden. Bzw. wenn der Focus irgendwo hinspringt wäre das auch egal.

:)

 

Hallo Georg,

das Keypressed Event ist ein Event, welches nicht durch einen Ausdruck ersetzt werden kann. Deshalb funktionert das nicht, was du da beabsichtigst.
Hierfür würde man eine Wrapper-Klasse schreiben, die das Objektmodell der Textbox dahingehend erweitert.

Warum geht das nicht beim OnChange-Event? Deine Begründung mti irgendeinem Filter habe ich nicht verstanden.

Ulrich

 

Hallo Ulrich,

es wird mit den eigegebenen Daten ein Endlos Formular gefiltert. Dass soll bei jeder eigegebenen Zahl reagieren (ohne Enter). Da hast du Recht, dass müsste ja bei dem Change Ereignis auch funktionieren oder?

 

Hallo,

einfach mal machen *wink.gif*

Ulrich

 

Hallo,
wenn die Suchfelder nur Zahlen enthalten dürfen, kann man doch besser mit der Funktion IsNumeric prüfen und spart sich das Gedöns mit den Keys.
Habe mal eine Test-DB mit einem Zahlen- und Prüffeld erstellt, ich hoffe damit Deine Anforderungen zu treffen. Die Prüffunktion ist in einem Modul untergebracht. Ganz ohne Code kommen die Prüffelder natürlich nicht aus. Das ganze ist ohne Fehlerbehandlung etc., also nur als Prototyp gedacht.
Um keinen Fehler zu erzeugen wird das Prüffeld, wenn man den Eintrag komplett löscht, auf 1 gesetzt.
Gruß Thomas

 

Danke für deine Mühe Thomas. IsNumeric habe ich übernommen.

Ich habe es so hinbekommen, wie ich wollte. Ich markiere alle 20 Textfelder und füge bei Ereignis "Bei Änderung" meine Funktion =fnEingabeBeschraenken() ein. Dann brauche ich in VBA nicht 20 mal den Code für jedes Textfeld "Bei Änderung".

Code:

Code ist mit Sicherheit noch verbesserungswürdig.

Vielen Dank für Eure Hilfe!