Hi,
Natürlich werden die neuen Einträge UNTER die bisherigen geschrieben. Daran kann auch Dein
SendKeys ("^{Home}") nichts ändern. Damit positionierst Du nur den Cursor in die linke obere Ecke.
Die Reihenfolge/Zusammensetzung des Textes hingegen wird ausschliesslich in den Zeilen mit
historie.Text =... bestimmt.
historie.Text = historie.Text & vbCrLf & "-------- " & Now & " -------" & vbCrLf
Hier hängst Du doch selbst an den bisherigen Text ein CRLF sowie die Bindestriche, als auch weiterhin Datum &Uhrzeit , etc. HINTEN dran. (Also unten drunter.)
Soll der neue Text vor den bisherigen, dann musst Du das auch im Code so zusammenfügen. Um bei Deinem obigen Beispiel zu bleiben, könnte das aussehen wie folgt:
Private Sub Historie-DS-anfuegen_Click()
historie.Text = vbCrLf & "----------" & vbCrLf & historie.Text
historie.Text = "----- " & Now & " -------" & vbCrLf & "?" & historie.Text
historie.SetFocus
SendKeys ("^{Home}")
SendKeys ("{Down}")
SendKeys ("^+{Right}")
End Sub
An welcher Stelle im Code die SendKeys stehen, sollte dabei egal sein. Ich hab sie nur "meiner Logik folgend" nach hinten geschoben. (Inhalt zusammenstückeln, Focus auf das Feld, Cursor nach links oben, eine Zeile runter, erstes Wort ("?") markieren.)
Bye
malSchauen