Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Letzten Eintrag einer Multiline-Textbox automatisc

Forumthread: Letzten Eintrag einer Multiline-Textbox automatisc

Letzten Eintrag einer Multiline-Textbox automatisc
21.05.2014 17:35:35
Dirk
Hallo zusammen,
ich habe eine UF mit 3 Textboxen.
Textbox1 wird automatisch bei UF-Start gefüllt und wird
durch den Inhalt von Textbox3 ergänzt. Ich möchte nun
erreichen, daß automatisch Textbox1 um eine Zeile nach
oben verschoben wird und den letzten Eintrag anzeigt.
Bis jetzt muß ich immer manuell scrollen.
Wäre Euch für Lösungsvorschläge dankbar.
Gruß Dirk
Private Sub TextBox3_afterupdate()
TextBox1.Value = TextBox1.Value & vbCrLf & TextBox3.Value
TextBox3.Value = ""
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzten Eintrag einer Multiline-Textbox automatisc
21.05.2014 17:53:48
Daniel
Hi
probiers mal so:
Private Sub TextBox3_afterupdate()
TextBox1.Value = TextBox1.Value & vbCrLf & TextBox3.Value
TextBox3.Value = ""
TextBox1.SetFocus
TextBox1.SelStart = Len(TextBox1.Text)
End Sub
die Eigenschaft "Multline" muss für die Textbox1 = True sein.
Gruß Daniel

Anzeige
AW: Letzten Eintrag einer Multiline-Textbox automatisc
21.05.2014 18:11:40
Dirk
Hallo Daniel,
tausend Dank, funktioniert einwandfrei !
Gibt es auch eine Möglichkeit, den Scrollbalken dieser
Textbox gleich ganz unten zu positionieren ?
Gruß Dirk
Sub Schaltfläche1_Klicken()
Dim frm As UserForm
Set frm = UserForm1
Range("A1").Select
ActiveWorkbook.Sheets("Tabelle1").Activate
With frm
.TextBox1.Value = ActiveCell.Offset(2, 2).Value
End With
UserForm1.Show
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige