kl. Taschenrechner funktioniert nicht
07.01.2021 08:15:18
Michael
ich arbeite mit einer Maske und habe da einen kleinen Taschenrechner eingebaut.
Gebe ich in TextBox1 einen Wert ein und bestätige mit "Enter" diesen, trägt er diesen in Textbox2 ein.
Der Cursor bleibt in TextBox1. Wiederhole ich das, so addiert er den neuen Wert zu dem Wert in TextBox2 dazu.
So sieht das ganze aus:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If .Value = "" Then
'letzten Eingabewert wieder eintragen
.Value = mstrTextbox1
Else
mstrTextbox1 = .Value 'Eingabewert merken
If TextBox2.Value = "" Then
TextBox2 = CDbl(.Value)
Else
TextBox2 = CDbl(TextBox2.Value) + CDbl(.Value)
End If
.Value = ""
Cancel = True 'Dadurch bleibt der Fokus auf der Textbox
End If
End With
End Sub
welches ich derzeit nutzen muß. Kann man mich unbterstützen das für
Excell 2010 und 2013 kompatible zu machen?
Frue mich auf Feedback!
Gruß
Michael