Office: VBA-Anweisung "nur 2 Stellen hinterm Komma zulassen&quo

Hallo zusammen,

möchte, dass in meiner ComboBox namens BetragQ nur 2 Stellen hinterm Komma als Eintragung zulässig sind!
Dies soll schon während der Eingabe geschehen.

Bsp.:

lautet die Eingabe: 1,234 , soll direkt bei der Eingabe "4" eine MsgBox erscheinen.
(MsgBox "Nur zwei Stellen hinterm Komma zulässig!", vbSystemModal, "Hinweis-Eintragung").
Wenn möglich soll(en) bei Bestätigung der MsgBox mit "OK" auch gleich die letzte(n) Stelle(n), bis auf zwei hinterm Komma gelöscht werden.

Ist sowas machbar?

Nur Zahlen zulässig habe ich bereits mit:

Private Sub BetragQ_KeyPress _
(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr(1, "0123456789,", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

erledigt.
Vielleicht kann man diese Anweisung als Basis verwenden und erweitern?

Gruß timi

 

Hallo timi,

zusätzlich zu Deinem KeyPress-Event-Handler noch folgenden Handler für das Change-Ereignis ausprobieren:

Code:

Private Sub BetragQ_Change()
  Dim S$, SS$()
  S$ = BetragQ.Value
  SS$ = Split(S$, ",")
  If 1>UBound(SS$) Then Exit Sub
  If Len(SS$(1)) > 2 Then
    MsgBox "Nur 2 Stellen hinterm Komma zulässig!", vbSystemModal, "Hinweis-Eintragung"
    BetragQ.Value = SS$(0) & "," & Left$(SS$(1), 2)
  End If
End Sub

 

Das siehst auf den ersten Blick sehr verwirrend aus!
Habe diese Anweisung direkt in das Change-Ereignis hinter meine bereits vorhandene Anweisung eingefügt und es klappt absolut perfekt!

VIELEN DANK!!!!!

Ich hatte auch schon im Change-Ereignis herumexcelementiert und war schon am verzweifeln!
Ich persönlich wäre nie auf diese Lösung gekommen! Bin leider kein Profi!
Excel muss man wohl schon mit der Muttermilch mitbekommen?

Gruß timi