ich hab ein Problem. Bin nicht wirklich fit in VBA, und bräuchte jetzt einen Befehl der mir folgendes ermögllicht:
Wenn in einen Textfeld bereits einmal ein Punkt gesetzt wurde, soll in dieses Textfeld kein weiterer Punkt geschrieben werden.
Zur Festlegung das nur Buchstaben, Punkte, Backspace und Return in meinen Textboxen eingegeben werden dürfen, benutze ich folgendes Klassenmodul:
Option Explicit
Public WithEvents TextBoxGruppe As MSForms.TextBox
Private Sub TextBoxGruppe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then KeyAscii = 46
Select Case KeyAscii
Case Asc("0") To Asc("9"), 8, 13, 46
Case Else
KeyAscii = 0
End Select
End Sub
Wie kann ich jetzt hier noch einbauen, das keine 2 Punkte in eine Textbox gesetzt werden können. Also nicht über eine stringabfrage, die dann feststellt das zuviele Kommas drin sind, sondern das direkt nur 1 komma eingetippt werden kann, und dsa nächste durch Keyascii=0 ersetzt wird.
Danke für eure Mühen im vorraus
Peter