Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Setfocus Problem

Setfocus Problem
26.09.2020 17: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
Anzeige
AW: Setfocus Problem
26.09.2020 17:19:30
Hajo_Zi
Hallo mPeter,
cancel =true für With End With

Application.SendKeys "{END}"
26.09.2020 18: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 05: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 09:11:37
Matthias
 
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige