Private Sub TextBox1_Enter()
With Verein.TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Value)
Debug.Print Len(.Value)
End With
End Sub
das funzt so aber nicht. Das Verrückte: wenn ich den Code in einer neuen Arbeitsmappe mit einer neuen Userform einfüge, dann läuft der Code. Die Eigenschaften der beiden Textfelder sind auch gleich. Wo könnte der Fehler liegen?