Office: TextBox Eingabe überprüfen

Hallo Zusammen,

Ich habe eine TextBox in meiner Userform die meine Benutzer händisch mit Daten befüllen können. Diese TextBox darf aber nur Zahlen und ,/. enthalten. Das habe ich durch eine KeyPress-Sub soweit abgefangen.

Wenn ich diese TextBox aber aus einem String oder wie bei mir aus einem Word-Dokument automatisch befülle wird die KeyPress-Sub nicht angesprochen und es könnten Buchstaben, Zeichen etc. enthalten sein was nicht gewünscht ist.

Wie kann ich das abfangen?

Vielen Dank!

Grüße Sven

:)

 

AUtomatisch befüllen heisst doch, dass Du in Deinem Code eine Zuweisung an die Textbox machst. Da musst Du eben die Prüfung durchführen, die auch in KeyPress steht.

 

Hätte es ja mit ner umgekehrten replace Funktion machen wollen die kenn ich nur nicht.
Also ersetze alle Zeichen, Abstände etc. außer Zahlen und ,/. Mit "".
Hast du da was für mich?

 

Hallo Sven,

mein Vorschlag:
Code:

Gruß
Aloys

 

Hallo Sven,

oder so:
Code:

Über die Vorgabe cStrAllowed kannst Du weitere Zeichen erlauben / ausnehmen.

Das Ereignis sollte beim Ändern&Verlassen der TextBox anspringen, reagiert also nicht sofort auf jede Änderung wie das Change-Ereignis, der Code läuft also nicht ganz so häufig an.

Grüße
EarlFred

 

HAllo Sven

Schau mal hier.
Option Explicit

Sub aufruf()
MsgBox machs("@12EFG-3,.a56bc(()@")
End Sub

Function machs(stext As String) As String
Dim regex As Object
Set regex = CreateObject("vbScript.regexp")
With regex
.Pattern = "[^\d\.\/\\,]"
.Global = True
machs = .Replace(stext, "")
End With
End Function

 

Danke euch hat mir weitergeholfen.

Gruß Sven