AW: Per VBA Buchstaben im Kommentar formatieren
07.04.2016 11:11:21
Steve
Hallo Klewe,
es passiert erstmal nichts weil du beim SelectionCange-Ereignis von seinem definierten Namen abgewichen bist. Auch hat es feste Parameter einzuhalten, auch wenn du sie nicht benötigst. Excel erkennt es dann einfach nicht mehr und denkt es sei ein normales Makro welches du selber aufzurufen hast.
Activesheet kann man vor Cells weglassen, denn er bezieht sich ohne Angabe eines Blattes immer auf das aktive Blatt.
Auf den Kommentar kann man mit Cells.Comment.Text zugreifen, jedoch verträgt er das Formatieren der Buchstaben nicht. Dazu muss man den Kommentar als Objekt (hier Shape) behandeln. Selbstverständlich die Prüfung ob ein Kommentar überhaupt vorhanden ist nicht vergessen sonst läuft dir uU. alles auf Grund.
lg Steve
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim i As Integer
Dim Text As String
If Not Cells(1, 1).Comment Is Nothing Then
Text = Cells(1, 1).Comment.Text
For i = 1 To Len(Text)
If Mid(Text, i, 1) = "j" Or Mid(Text, i, 1) = "t" Then
Cells(1, 1).Comment.Shape.TextFrame.Characters(i, 1).Font.Italic = True
Cells(1, 1).Comment.Shape.TextFrame.Characters(i, 1).Font.Color = vbGreen
Else
Cells(1, 1).Comment.Shape.TextFrame.Characters(i, 1).Font.Italic = msoFalse
End If
Next i
End If
End Sub