title image


Smiley Re: Formatfestlegung für Textfeld in Eingabemaske
Hallo!



Bei Excel gibt es m.W. nicht die Möglichkeit, so wie in Access per Eigenschaftsdefinition eine Eingabemaske zu erzeugen.



Aber mit Selbststricken geht es. Zum Beispiel so:



Private Sub TextBox1_Change()

On Error GoTo Ende

Dim int_Pos As Integer

Dim str_New As String



int_Pos = TextBox1.SelStart

str_New = Mid(TextBox1.Text, int_Pos, 1)

If Not IsNumeric(str_New) Then

TextBox1 = Left(TextBox1, int_Pos - 1) & Mid(TextBox1, int_Pos + 1)

TextBox1.SelStart = int_Pos - 1

End If

Ende:

End Sub



Probier's mal aus.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: