[color=darkgreen]' ändert die Schrift eines Kommentar's
[color=darkgreen]' Zelle ist die Zelle des zu ändernden Kommentar's
[color=blue]Sub[/color] SetCommentFont(Zelle [color=blue]As[/color] Range)
 
  [color=blue]On Error Goto[/color] Ende
 
  [color=blue]Dim[/color] V [color=blue]As Boolean[/color]
 
  [color=darkgreen]' aktuellen Kommentarstatus merken
  V = Zelle.Comment.Visible
 
  [color=darkgreen]' Bildschirmausgabe deaktivieren
  [color=darkgreen]' (sonst flackert der Kommentar kurz auf)
  Application.ScreenUpdating = [color=blue]False[/color]
 
  [color=darkgreen]' Kommentar einblenden, sonst geht's nicht
  Zelle.Comment.Visible = [color=blue]True[/color]
 
  [color=darkgreen]' Kommentarobjekt markieren, sonst geht's immer noch _
    nicht[/color]
  Zelle.Comment.Shape.Select [color=blue]True[/color]
 
  [color=darkgreen]' Schrift des markierten Objektes ändern
  [color=blue]With[/color] Selection.Font
    [color=darkgreen]' Schriftart
    .Name = "Tahoma"
    [color=darkgreen]' Schriftgröße
    .Size = 10
    [color=darkgreen]' Durchgestrichen
    .Strikethrough = [color=blue]False[/color]
    [color=darkgreen]' Schrift hochgestellt
    .Superscript = [color=blue]False[/color]
    [color=darkgreen]' Schrift tiefgestellt
    .Subscript = [color=blue]False[/color]
    [color=darkgreen]' Unterstrichen
    .Underline = xlUnderlineStyleNone
    [color=darkgreen]' Schriftfarbe
    .ColorIndex = 3
    [color=darkgreen]' Fett
    .Bold = [color=blue]True[/color]
    [color=darkgreen]' Kursiv
    .Italic = [color=blue]True[/color]
  [color=blue]End With[/color]
 
  [color=darkgreen]' alten Kommentarstatus wiederherstellen
  Zelle.Comment.Visible = V
 
Ende:
  [color=darkgreen]' Bildschirmausgabe wieder aktivieren
  Application.ScreenUpdating = [color=blue]True[/color]
[color=blue]End Sub[/color]

Viel Spass,
R@lf