TextBox_AfterUpdate

Hallo zusammen,
ich benutze eine Eingabemaske mit Textboxen, mit denen Zahlenwerte eingegeben werden, und anschließend Berechnungen durchgeführt werden (Zahlen werden u.a. addiert und in einem Anzeigefenster dargestellt).
Hierfür benutze ich die Funktion TextBox_AfterUpdate. Die Userform/Elemente sind so eingestellt, das man mit der Enter-Taste zwischen 2 Eingabefenstern wechseln kann, und bei Eingabe einer Zahl diese verarbeitet wird.
Bis jetzt läuft das ganze unter WIN XP (SP2) und Excel 2003 ohne Probleme.
Nun wurden neue Rechner angeschaft mit WIN10 und Excel 365, und es funktioniert nicht richtig.
Das Problem: an den alten Rechnern nimmt "AfterUpdate" jede Eingabe an und verarbeitet sie, bei den neuen Rechnern reagiert "AfterUpdate" nur, wenn eine andere Eingabe kommt!
Wenn ich jetzt "1" eingebe, und beim nächsten mal wieder 1 eingebe passiert nichts, bei einer geänderten Eingabe funktioniert es wie gewohnt.
Hab das ganze auf vier Konfigurationen getestet (Programm kopiert und auch Programmausschnitt in den jeweiligen Versionen neu erstellt.)
Mit XP/Excel2003 und WIN10/Excel2016 funktioniertes, bei WIN10/Excel 365 und WIN7/Excel 2016 funktioniert es nicht! AfterUpdate ist doch eine Standardfunktion
Hat einer eine Idee, woran das liegen könnte? Gibts eventuell Einstellungen bei WIN oder Excel die man ändern müsste?
Für Antworten und Ideen wäre ich wirklich dankbar!
MFG Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Da sich keiner mehr gemeldt hat, würde ichmal antworten.
Den Vorschalg von Luschi kannst du so einbauen:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 48 To 57
'dsa sind zahlen da nix
Case 13
'ènter taste, da der Code bzw. aufruf vom wechsel rein
Case Else
'alle anderen zeichen
KeyCode = 0
End Select
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 48 To 57
'dsa sind zahlen da nix
Case 13
'ènter taste, da der Code bzw. aufruf vom wechsel rein
Case Else
'alle anderen zeichen
KeyCode = 0
End Select
End Sub

Bei Zahlen (der Tastenkode 48 bis 57) passiert nix, die werten eingetagen. Bei Enter kannst du deine Berechnungen starten. Danach passiert das, was du bei den Boxen eingestellt hast - also er springt in die andere Box.
Bei allen andern Anschlägen wird der Keycode auf 0 gesetzt. Damit passiert nix. einfach mal testen.
Hier noch ein anderer Vorschlag. Der arbeite mit dem Exit Event. Der prüft, ob der Wert numerisch ist und wechselt dann erst bzw. startet deine Berechnung.


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox1) Then
'hier das was gemcht weden soll
MsgBox "ich mach was"
Else
Cancel = True
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox2) Then
'hier das was gemcht weden soll
MsgBox "ich mach was"
Else
Cancel = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox_AfterUpdate

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread