Problemen bij SelStart en SelLength icm Multiline=true

[Offthefield]

Ik heb een probleem met SelStart / SelLength icm Multiline=true
Zonder Multiline wordt de text gemarkeerd en kan je verder enteren.

In combinatie met Multiline=true wordt de inhoud van het veld
automatisch verwijderd. Hoe kan ik dit icm Multiline veranderen

vb

Private Sub Txt101_Enter()
Txt101.SelStart = 0
Txt101.SelLength = Len(Txt101.Text)
End Sub

Private Sub Txt101_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Txt102.SetFocus
End Sub

Bvd

Offthefield

PS Ik weet niet hoe ik de formules in een code box kan zetten!

 

[snb]

Na 7.5 jaar en 105 berichten ?

Kijk eens naar de iconen boven het gevanceerde editor scherm.

 

[Offthefield]

Bedankt voor informatie