Thema Datum  Von Nutzer Rating
Antwort
04.10.2010 15:07:11 Martin
NotSolved
Blau Aw:keypress-event global für alle textfelder??
 05.10.2010 15:42:11 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
05.10.2010 15:42:11		 Views:
420		 Rating:
     
Antwort:
  Ja
Thema:
Aw:keypress-event global für alle textfelder??
Martin schrieb am 04.10.2010 15:07:11:

Hallo ihr vba-profis!

Ich komm grad nicht weiter.

Mein code sieht derzeit so aus:


Private sub textbox1_keypress(byval keyascii as msforms.returninteger)

Dim zugelassen as string

zugelassen = "123456789." & chr$(8)

If instr(1, zugelassen, chr$(keyascii))=0 then
msgbox "allowed: nummeric characters and '.'"
Keyascii=0
End if
end sub


nun habe ich aber viele textboxen und suche nach einer möglichkeit die eingabe global für alle textboxen zu beschränken.

Gibt es da eine lösung?

Danke im voraus!


Private Sub textbox1_change()
If TextBox1.Text = "" Then Exit Sub
If zugelassen(TextBox1.Text) = False Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

Public Function zugelassen(ByVal Inhalt As String) As Boolean
Inhalt = Right(Inhalt, 1)

Select Case Inhalt
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "."
zugelassen = True
Case Else
zugelassen = False
MsgBox "allowed: nummeric characters and '.'"

End Select

End Function

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.10.2010 15:07:11 Martin
NotSolved
Blau Aw:keypress-event global für alle textfelder??
 05.10.2010 15:42:11 Severus
NotSolved