gegeben ist eine UF mit einem CommandButton und einer Textbox (multiline=true).
Mit folgendem Code ist es möglich, einen längeren mehrzeiligen Text aus Zelle A1 zeilenweise son in die Textbox einzulesen, dass er scrollt:
Option Explicit
Dim i As Integer
Private Sub CommandButton1_Click()
With TextBox1
.Visible = True
.Text = Cells(1, 1)
.SetFocus
i = 0
Do While i < .LineCount
.CurLine = i
Application.Wait Now + TimeSerial(0, 0, 1)
i = i + 1
Me.Repaint
Loop
.Text = ""
.Visible = False
End With
End Sub
Private Sub UserForm_Initialize()
TextBox1.Visible = False
End Sub
Das Ganze soll so etwas wie ein Abspann werden. Was noch nicht funktioniert ist folgendes:
- Wie schaffe ich es, den Code jederzeit zu unterbrechen auch ohne dass die Schleife ganz durch ist?
- Wie schaffe ich es, die Zeilen einigermaßen "ruckelfrei" einlesen zu lassen?
Nach Möglichkeit soll das mit Excel-Bordmitteln zu machen sein, Verweise auf Powerpoint etc. kommen nicht in Betracht. Von etwaigen API-Ansätzen habe ich allerdings keine Ahnung :-)
Vielen Dank im voraus von
Roland Hochhäuser