Per VBA Buchstaben im Kommentar formatieren

Sub SelectionChange()
Dim i As Integer
Dim x As String
x = Cells(1, 1).Text
For i = 1 To Len(x)
If Mid(x, i, 1) = "j" Or Mid(x, i, 1) = "t" Then
ActiveSheet.Cells(1, 1).Characters(i, 1).Font.Italic = msoTrue
ActiveSheet.Cells(1, 1).Characters(i, 1).Font.Color = vbGreen
Else
ActiveSheet.Cells(1, 1).Characters(i, 1).Font.Italic = msoFalse
End If
Next i
End Sub