Text Formatieren
24.11.2014 15:46:24
Carsten
habe eine kleine Frage und hoffe sie von jemandem hier aus dem Forum beantwortet zu bekommen.
Ich habe mir folgendes kleines Macro geschrieben um das Datum plus einen Namen an den Ende eines bestehenden Textes in einem Feld ein zu fügen.
Dim TXT, N, D
TXT = ActiveCell.Value
N = "_gersdorfo:"
D = Format(Date, "yyyy-mm-dd")
ActiveCell.Value = TXT & vbCrLf & vbCrLf & D & N & vbCrLf
End Sub
Nun machen wir folgende Punkte noch Probleme:
1. Nach dem Auslösen des Macros soll das Feld zur Eingabe durch den Benutzer bereit/aktiv sein
2. Es soll nur der eingefügte Text (Datum+Name) kursiv dargestellt sein. Der "alte" Text soll seine alte Formatierung behalten.
3. Das Format mit dem der Benutzer weiter schreibt soll wieder "normal" also nicht kursiv sein.
Kann mir dabei jemand weiter helfen. Wäre euch echt sehr dankbar.