Gesamte Textzeile im Multiline-Modus markieren

[Schülerin]

Hallo ihr Lieben,

ich habe eine Multiline-Textbox in der mehrere Zeilen Text untereinander stehen. Dafür habe ich nun einen funktionierenden Code
geschrieben, der in der Lage ist, die Zeile zu markieren, in der sich die Einfügemarke befindet.  Ich empfinde meinen Code als viel zu
kompliziert für so eine leichte Aufgabe. Geht so etwas nicht wesentlich effizienter?

Code:

Sub CommandButton21_Click()
   'Markieren der Zeile in der sich die Einfügemarke befindet
   Dim a, a1, a2, j, j1
   
   With TextBox2
       a = .SelStart
       .SetFocus  'erforderlich
       .SelStart = a
       j = .CurLine
       .CurLine = j
       a1 = .SelStart
       .CurLine = j + 1
       a2 = .SelStart
       .SelStart = a1
       .SelLength = a2 - a1
   End With
   
End Sub

[chris-ka]

Hi,

• warum verwendest du nicht einfach eine Listbox?
  
• Gibt es dafür einen Grund?
  
• Wie wird den TextBox2 befüllt?
  

[ratrad]

Hallo Schülerin,
versuch es mal so:

Code:

'Markieren einer ganzen Zeile in einer Multiline-Textbox
With TextBox1
.SetFocus: .CurLine = .CurLine: Application.SendKeys ("+{End}")
End With