Eingaben in TextBoxen rückgängig machen
22.02.2019 16:02:52
Tobi
ich bitte mal wieder um Eure Hilfe, da ich alleine aufgrund fehlender Kenntnisse nicht weiterkomme.
Ich habe in meiner UF einen CommandButton11 Abbrechen. Damit setze ich diverse andere CommandButtons, ListBox etc wieder von Enabled = False auf Enabled = True.
In diesen CommandButton11 hätte ich jetzt gerne einen Code, der soeben gemachte Änderungen in den TextBoxen und in der CheckBox vor dem speichern wieder rückgängig macht. Die Einträge die vor der Änderung gemacht wurden sollen natürlich erhalten bleiben.
Ich würde hierfür den Wert vor der Eingabe mit dem Enter-Ereignis in das Tag der TextBoxen und der CheckBox speichern und beim Klick auf den CommandButton11 wieder auslesen.
Private Sub TextBox2_Enter()
'den aktuellen Wert im Tag zwischenspeichern
Me.TextBox2.Tag = Me.TextBox2.Value
End Sub
Private Sub CommandButton11_Click()
' den vorher im Tag zwischengespeicherten Wert wieder herholen
Me.TextBox2.Value = Me.TextBox2.Tag
End Sub
Leider weiß ich nur wie das für jede einzelne Text- oder CheckBox gemacht wird, da ich aber mehrere TextBoxen habe, verliert sich mein Wissen.
Mit welchem Code kann ich das für alle Text- und CheckBoxen bewerkstelligen?
Die UF als Link anbei.
Liebe Grüße Tobi
https://www.herber.de/bbs/user/127855.xlsm
Anzeige