Kann mann eigentlich einen Makro erstellen, der Automatisch in einer Zelle alle Zeichen die nach zwei Leerzeichen sind kursiv und in Größe 20 macht.
Wäre Dankbar für Antworten!!
Teoman
Sub FormatÄndern()
With [A1].Characters(start:=InStr(1, [A1], " ")).Font
.Size = 20
.FontStyle = "Kursiv"
End With
End Sub
Gruß
Bertram
Sub FormatÄndern()
If InStr(1, [A1], " ") <> 0 Then
With [A1].Characters(start:=InStr(1, [A1], " ")).Font
.Size = 20
.FontStyle = "Kursiv"
End With
End If
End Sub
Gruß
Bertram