Hallo,

das ght nur über das Betriebssystem ich glaube OuickInfo ist der Punkt.

Gruß Hajo

Hi,

falls du das nicht generell einstellen möchtest, kannst du alle Kommentare im aktuellen Tabellenblatt mit folgendem Code nachträglich formatieren:

Sub kommentar()
    Dim coKommentar As Comment
    For Each coKommentar In ActiveSheet.Comments
        With coKommentar.Shape
            With .DrawingObject.Font
                .Size = 10
                .FontStyle = "Arial"
            End With
            .Fill.Transparency = 0.5
        End With
    Next coKommentar
End Sub

Bis später,
Karin

Vielen Dank Euch beiden.

Zu Hajo: ich möchte das nicht für die ganze Maschine ändern.

Zu Karin:
Dein Makro erledigt sogar alle Kommentare im ganzen Blatt. Seltsame Erscheinungen bei mir:
1. Textbestandteile werden 'entfettet' und 'unkursiv' obwohl Dein Makro dazu gar nichts bestimmt,
2. Tahoma wird nicht zu Arial, obwohl Dein Makro das so beabsichtigt.
Nachrichtlich: Unterstreichungen u. Schriftfarben bleiben erhalten, Schriftgrad wechselt von 8 auf 10 - so wie erwartet.

Beispiel: "Am Ende ist alles [grün]" wird zu "Am Ende ist alles [grün]"

Hast Du dafür vielleicht eine Lösung?

Wenn das nicht in einem Makro für alle Kommentare eines Blattes möglich ist, dann würdest Du mir eine große Freude mit dem Makrocode für das Ändern eines einzelnen Kommentars machen: idealer Startpunkt "Kursor steht nach dem Text schreiben im Kommentarfeld."

Hi,

Wenn Du aber den .FontStyle in Deinem Makro gegen .Name ersetzt, dann sollten die anderen Formatierungen erhalten bleiben. (bold, italic, etc.)

Soll für Beverlys Macro heißen:

            With .DrawingObject.Font
                .Size = 10
                .Name = "Arial"
            End With

sollte imho funktionieren. (Excel 2003 getestet)

Bye

Hi,

danke für die Ergänzung, daran hatte ich nicht gedacht. .Name funktionert auch in 2002 und 2007.

Bis später,
Karin

Besten Dank an Beverly und malSchauen !!
Die Kombination Eurer Beiträge bringt es für mich.

Mit besten Grüßen, Klariko