ich habe auf einer Userform 5 Textboxen von 200-205.
Wenn ich in der Textbox 200 mit ENTER bestätige, wird die Textbox 202 angesprungen bzw. selectiert.
Die Aktivierungsreihenfolge ist eingestellt.
Private Sub TextBox200_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Range("i5") = CDbl(Format(TextBox200, ("0.00")))
TextBox200 = ActiveSheet.Range("i5").Value
TextBox201.SetFocus
End Sub
mfg kurt k