ich fülle eine UserForm mit Zellinhalten. Die Werte der Textfelder in der UF "txtVorname" & "txtNachname" können
geändert werden.
Nachdem man den Button "cmdÄndern" betätigt, erscheint eine MsgBox die fragt, ob die Werte in die Zellen
übertragen werden sollen oder nicht.
Wählt man "Abbrechen" sollten die geänderten Eingabe erhalten werden und die UF wieder angezeigt werden.
Leider funktioniert das mit "txtVorname.Cancel = True" und "txtNachname.Cancel = True" nicht.
Wer kann mir helfen???
das ist mein bisheriger Codeansatz:
Private Sub UserForm_Initialize() Private Sub cmdÄndern_Click() Ciao MikeS
Option Explicit
txtVorname = Sheets(1).Range("a1").Value
txtNachname = Sheets(1).Range("a2").Value
End Sub
Dim Ergebnis
Ergebnis = MsgBox("Stimmt Ihre Eingabe", vbOKCancel + vbQuestion, "Eingabeüberprüfung")
If Ergebnis = vbOK Then
Sheets(1).Range("a1").Value = txtVorname
Sheets(1).Range("a2").Value = txtNachname
Else
txtVorname.Cancel = True
txtNachname.Cancel = True
End If
End Sub