title image


Smiley Re: Ups, ganz so einfach ist es scheinbar doch nicht...
Hi,



so funktioniert es mit VBA6. Evtl kannst Du das Beispiel anpassen.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

' Das Makro verhindert die Eingabe von Buchstaben

' in einer TextBox auf einer Userform, indem die Tastatur

' dauernd abgefragt wird. Nur Komma und Punkt sind erlaubt.

Select Case KeyAscii

' 0 - 9

Case 48 To 57

' Komma

Case 44

' Punkt

Case 46

'

Case Else

Beep

KeyAscii = 0

WordBasic.MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. " _

& "Bei Zahlen mit Nachkomma-Stellen ist das Komma und der Punkt erlaubt!", -1

End Select

End Sub      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: