Clever-Excel-Forum

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

Hi,

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

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

Schülerin

chris-ka

ratrad