VBA Eingabevalidierung?

Re(2): VBA Eingabevalidierung?

SunnyHill — Thu, 30 Oct 2008 07:28:17 GMT

Wenn du zB TextBoxes zur Eingabe hast, warum schränkst du nicht gleich die Tastatureingabe ein, und lässt nur die Tasten zu, die auch notwenig sind?

Wenn du eine TextBox mit der Bezeichnung txtEingabe hast, und dort nur Zahlen von 0 bis 9 und einen . sowie Großbuchstaben A, X und Z erlauben willst, geht’s folgend (zumindes mach ich das so )

Private Sub txtEingabe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
  Case 48 To 57 'Zahlen 0 bis 9
  Case 46 'der .
  Case 65 'großes a
  Case 88 to 89 'großes x und y
  Case Else
  KeyAscii = 0
End Select
End Sub

Die benötigten Ascii-Codes findest du zB hier: http://de.wikipedia.org/wiki/Ascii#ASCII-Tabelle

SunnyHill

Re: VBA Eingabevalidierung?

hariw — Wed, 29 Oct 2008 21:01:10 GMT

hi,

so in etwa?


Sub pong()
  Dim a
  a = "13.2.08"
  If IsDate(a) Then Debug.Print "date"
  If IsNumeric(a) Then Debug.Print "numeric"
  Debug.Print TypeName(a)
End Sub

lässt sich zb. als datum & zahl interpretieren bzw. kannst mittels typename direkt abfragen...

lg,
hariw

Re: VBA Eingabevalidierung?

Somnatic — Wed, 29 Oct 2008 18:43:57 GMT

Regular Expressions sind keine Option?
Set RegEx = CreateObject("vbscript.regexp")

oder: http://www.ozgrid.com/forum/showthread.php?t=37624 (mittendrin ist ein Beispiel)

VBA Eingabevalidierung?

pong — Wed, 29 Oct 2008 18:33:25 GMT

Ich bin ja in VBA ein wirkliches Nakerpatzerl, darum -> gibts in VBA sowas wie eine Typenvalidierung um Eingaben zu halbwegs komfortabel auf formale Korrektheit (numerisch, alphanumerisch, vorgegebenes Format) und Plausibilität zu prüfen (zB Datum)

pong