|
Hi,
bin erst jetzt auf Euer Forum gestoßen und bin sehr froh, dass es etwas auf Deutsch gibt und hoffe auf Hilfe.
Meine VBA Kenntnisse sind sehr beschränkt.
Ich habe mir einige Makros aus anderen Foren zusammengestellt, gibt aber sich dafür professioneller Lösungen.
z.B.
Ich habe in einem OL 2010 Formular einen Button, der das aktuelle Datum mit einem Doppelpunkt an das Ende des "Formular Item.Body" einfügt.
Nachdem das "Body" Feld mittlerweile viel Inhalt enthält, möchte ich den Cursor nach Einfügen des Datums gleich hinter den Doppelpunkt setzen, um dort danach gleich was eingeben zu können.
Sub Datum_Click()
Item.Body = Item.Body & vbCrLf & Date() & + ": " & vbCrLf
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.SendKeys("{TAB 11}")
objWSHShell.SendKeys("^{End}")
objWSHShell.SendKeys("^{backspace}")
End Sub
Wie ihr seht, drücke ich mit dem Makro so oft Tab bis der Cursor in diesem Feld steht und gehe dann ans Ende.
Ich bin sicher, dass es dafür eine professionellere Lösung gibt und bitte um Hilfe.
Ich kenne den Befehl nicht, wie man das Feld direkt anspricht.
Vielen Dank im voraus
LG
Witzker
|