Rück-Taste über KeyAscii abfragen
Christoph
Ich habe eine Userform angelegt.
Auf der Userform besfinden sich ein paar Textfelder, in die nur Zahlen eingegeben werden dürfen.
Ein weiteres Textfeld, welches die Summe aus allen anderen Textfeldern bildet, wird automatisch bei jedem Tastendruck einer Ziffer neu berechnet (per Keypress-Funktion)
Soweit so gut.
Hat man sich allerdings vertippt und benutzt die Rück-Taste oder Entfernen-Taste, läuft das Private Sub nicht ab. Sprich - Das Sub wird nicht gestartet und das Summenfeld bleibt unverä _ ndert. Lange Rede kurzer Sinn: Wie kann ich in einem Textfeld den Anlauf eines PrivateSub per Knopfdruck auf Rücktaste (lö _ schen) oder Entf - Taste starten ? Und warum läuft mein Sub hier bei den Tasten nicht an? Laut _ Excel-VBA-Hilfe sollten diese Tasten eigentlich mit inbegriffen sein !?!? (Ein Textfeld in der Userform heißt "txtTest" - die anderen Textfelder haben den selben Code)
Private Sub txtTest_KeyPress _
(ByVal KeyAscii As MSForms.ReturnInteger)
Dim i
Dim Zähler
Dim rng As Range
Dim MerkerKey
Dim Merker
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
'mein Code
End Sub
(Das Sub befindet sich in der Userform)
Für Hilfe wäre ich sehr dankbar
Gruß Christoph