Option Explicit
Sub Kommentar()
On Error GoTo fehler
ActiveSheet.Unprotect
Dim Cmt As Comment
'Kommentar in Zelle vorhanden
'Set Cmt = ActiveCell.Comment
'Kommentar in Zelle nicht vorhanden
Set Cmt = ActiveCell.AddComment
'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With
'Hintergrundfarbe Kommentarfeld
Cmt.Shape.Fill.ForeColor.SchemeColor = 5 'gelb
'Text u.Zellfarbe
With ActiveCell
.Comment.Text Text:="Mein Kommentar:"
.Interior.ColorIndex = 43 'grün
End With
Exit Sub
fehler:
MsgBox "kein Kommentar in Zelle oder falsche Anweisung im Makro"
'ActiveSheet.Protect
End Sub
Um die Schriftgröße eines Kommentars in Excel per VBA zu ändern, folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:
Sub Kommentar()
On Error GoTo fehler
ActiveSheet.Unprotect
Dim Cmt As Comment
Set Cmt = ActiveCell.AddComment
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With
Cmt.Shape.Fill.ForeColor.SchemeColor = 5 'gelb
With ActiveCell
.Comment.Text Text:="Mein Kommentar:"
.Interior.ColorIndex = 43 'grün
End With
Exit Sub
fehler:
MsgBox "kein Kommentar in Zelle oder falsche Anweisung im Makro"
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Wähle die Zelle aus, deren Kommentar du anpassen möchtest, und führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Fehler: "kein Kommentar in Zelle oder falsche Anweisung im Makro"
Schriftgröße ändert sich nicht
Wenn du den VBA-Ansatz vermeiden möchtest, kannst du auch den Excel-Recorder verwenden, um den Prozess aufzuzeichnen. Beachte jedoch, dass der Recorder möglicherweise nicht alle Schritte aufzeichnet.
Entwicklertools > Makro aufzeichnen.Hier ist ein praktisches Beispiel, wie du den VBA-Code anpassen kannst:
Ändere die Schriftgröße und den Text:
.Characters.Font.Size = 16
.Comment.Text Text:="Neuer Kommentartext"Ändere die Schriftfarbe:
.Characters.Font.ColorIndex = 31 'rotOption Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert werden..xlsm, um deine Makros zu behalten.1. Wie kann ich die Schriftart für alle Kommentare gleichzeitig ändern?
Du kannst eine Schleife verwenden, um alle Kommentare auf dem Arbeitsblatt zu durchlaufen und deren Schriftart zu ändern.
2. Funktioniert dieser VBA-Code in Excel 365?
Ja, der Code ist kompatibel mit Excel 365 und sollte in den meisten Versionen von Excel funktionieren.