Seltsamer Vorfall
17.01.2018 10:33:51
D.H.
ich habe folgendes Problem und wäre über eine Erleuchtung durch euch Profis sehr dankbar:
Ich habe in einer Userform diverse Textboxen, die ich mit folgenden Code (Beispielcode, aber grundsatzlich identisch bei allen Textboxen) auf Zahlen mit oder ohne Komma begrenze:
Private Sub TextBox12_Change()
ActiveSheet.Cells(116, 3).Value = TextBox12.Value
End Sub
Private Sub TextBox12_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Zahlen von 0-9 zulä _
ssig
If Chr(KeyAscii) Like "[0-9]" And 44 = False Then KeyAscii = 0
End Sub
Bei einigen Textboxen funktioniert dies tadellos, bei anderen widerum nicht.Wenn es nicht funktioniert wird bei der Passage "If Chr(KeyAscii) Like "[0-9]" And 44 = False Then KeyAscii = 0" zwar die Prüfung richtig durchgefüht (false = false), jedoch springt er dann nicht in die Then-Ausführung sondern sofort in den End Sub.
Bei den Textboxen wo es funtioniert, wird dies wie erwartet ausgeführt.
Kann es mir absolut nicht erklären. Weiss einer Rat?
Grüße Danilo