Hallo,

ich habe folgende Programmzeile:

UserForm1.TextBox1.MultiLine = True
UserForm1.TextBox1.ScrollBars = fmScrollBarsVertical

UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & "Spaltenbezeichnung " & _
"korrekt abgeschlossen!" & vbCr & "a" & vbCr & "b" & vbCr & "c" & vbCr & "d" _
& vbCr & "e" & vbCr & "f" & vbCr & "g" & vbCr & "h" & vbCr & "i" & vbCr & "Ende"

'UserForm1.TextBox1.??????????????????????????????


-->Das Problem:

Es wird alles richtig angezeigt, nur: Der letzte Eintrag (hier: Ende) istnicht direkt sichtbar. Und auch die Scrollbar wird erst durch einen Mausklick in die Textbox aktiviert.

Gibt es hierfür eine Funktion, die den letzten Eintrag anzeigt und die ScrollBar gleich OHNE Mausklick anzeigt ?