Office: (Office 2019) Größe des Kommentarfeldes dauerhaft vergrößern.

Hallo,

seit Stunden versuche ich einen Weg zu finden, um die Kommentarfelder in Excel dauerhaft zu vergrößern. Ich möchte also nicht einzeln die Felder vergrößern, sondern das standardmäßige
(vorgegebene) Kommentarfeld größer speichern.

In der Hoffnung, daß mir irgendjemand den Weg dorthin "ebnen" kann, bedanke ich mich schon vorab.

Phonetia

 

Hi Phonetia,
ich glaube nicht, dass man dies irgendwo generell einstellen kann.
Aber man könnte sich einen Button in der "Symbolleiste für den Schnellzugriff" einrichten und mit einem Klick ein Kommentarfeld in der ausgewählten Zelle einfügen lassen. Siehe z. B.: vba: Kommentar-größe ändern (also etwas für die Personal.xlsb)

 

Hallo,

Microsoft hat sich bei diesem Thema seit kurzem eine (weitere) Begriffsverwirrung einfallen lassen:

Es gab früher (=bisher) Kommentare, die man in einzelne Zellen einfügen konnte - diese heißen jetzt: Notizen
(Menüband > Tabulator "Überprüfen" > Gruppe "Notizen" > Befehlsliste "Neue Notiz", ..., "In Kommentare konvertieren")
Hier kann man die Größe und den Inhalt des Grafik-Fensters anpassen per VBA (wie bereits von @JayCole durch einen Link beschrieben) für eine bestimmte Zelle.

Zusätzlich gibt es seit kurzem darüber hinaus Kommentare, die man ebenfalls in einzelne Zellen einfügen kann
(Menüband > Tabulator "Überprüfen" > Gruppe "Kommentare" > Befehlsbutton "Neuer Kommentar",...,"Kommentare anzeigen")
Da kann man die Textzeilen vorgeben (Anzahl und Textinhalt) für eine bestimmte Zelle.

Im Folgenden habe ich 2 VBA-Makros eingefügt, wie man sie in einem allgemeinen Codemodul speichern kann. Sie fügen einen Kommentar in Zelle D20 ein bzw. eine Notiz in Zelle A20.
Sie lassen sich zB. über die Tastenkombination Alt+F8 auswählen und ausführen.

Code:

Sub Kommentar_Einfügen()
'
' Einfügen Kommentar in Zelle D20 des aktiven Arbeitsblattes
'   falls dort noch kein Kommentar enthalten ist - sonst Laufzeitfehler 1004
'
    With ActiveSheet.Range("D20")
       .AddCommentThreaded "Ich kommentiere." & Chr(10) & "Eine zweite Zeile."
    End With
 
End Sub
Sub Notiz_Einfügen()
'
' Einfügen Notiz in Zelle A20 des aktiven Arbeitsblattes (Kommentar im alten Stil)
'  falls dort noch keine Notiz enthalten ist - sonst Laufzeitfehler 1004
'
   Dim myCom As Comment
   Set myCom = ActiveSheet.Range("A20").AddComment
   With myCom
      .Visible = True
      .Text Text:="[xxxx]"
      With .Shape
         .Height = 70
         .Width = 45
         With .TextFrame.Characters.Font
            .Name = "Verdana"
            .FontStyle = "Fett"
            .Size = 8
         End With
      End With
   End With
End Sub

 

Hallo,
vielen Dank für die Antworten, die neuen Varianten habe ich beim 365 (kostenloser Probebetrieb für einen Monat im neuen PC) gesehen und umgehend die Software deinstalliert, um ein "normales" Office zu installieren.
Auch dir Exl121150 vielen Dank für die umfangreichen Ausführungen. Leider muß ich gestehen, daß ich mich mit Makros nicht auskenne. Für das Vergrößern des Kommentarkästchens müßte ich mich erst umfänglich von meiner Tochter im Umgang mit Makros instruieren lassen. Das ist mir dann doch zu aufwändig. Bei meiner initialen Anfrage habe eher an "ein, zwei Tastenklicks und fertig" gedacht.
Nochmals Dank und Grüße!
Aphonetia