Setfocus Problem

Forumthread: Setfocus Problem

Setfocus Problem

26.09.2020 19:13:16

Peter

Hallo,
ich habe folgendes Makro:


Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox15) > 0 Then
TextBox16 = TextBox15
Debug.Print TextBox16.SelStart, TextBox16.SelLength
End If
With TextBox16
.SetFocus
End With
End Sub

Es soll aber in der Textbox16 nicht der gesamte Text markiert werden sondern der Cursor soll am Ende des Textes stehen. Könnt ihr mir bitte helfen.
Gruss
Peter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Setfocus Problem

26.09.2020 19:19:30

Hajo_Zi
Application.SendKeys "{END}"

26.09.2020 20:08:33

Matthias
AW: Application.SendKeys "{END}"

27.09.2020 07:58:20

Peter
gerne, auch Dir einen schönen Sonntag owT

27.09.2020 11:11:37

Matthias

AW: Setfocus Problem

26.09.2020 19:19:30

Hajo_Zi

Hallo mPeter,
cancel =true für With End With

Application.SendKeys "{END}"

26.09.2020 20:08:33

Matthias

Hallo,

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox15) > 0 Then
With TextBox16
.Value = TextBox15.Value
.SetFocus
Application.SendKeys "{END}"
End With
End If
End Sub

Gruß Matthias

AW: Application.SendKeys "{END}"

27.09.2020 07:58:20

Peter

Hallo Matthias,
besten Dank für Deine Hilfe. Es funktioniert einwandfrei.
Wünsche noch einen schönen Sonntag.
Gruss
Peter

gerne, auch Dir einen schönen Sonntag owT

27.09.2020 11:11:37

Matthias

Forumthread: Setfocus Problem

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread