Office: (Office 365) Größe der Notizen automatisch anpassen

Hallo,

habe eine Excel-Datei (als Excel mit Makros gespeichert), die mehrere Tabellenblätter enthält und möchte, dass sowohl die aktuellen als auch die neuen Notizen automatisch von der Größe her an den Text angepasst werden. Habe im Internet diesen Code gefunden:

Sub KommentarGroesse()

Dim komm As Comment

For Each komm In Me.Comments

komm.Shape.TextFrame.AutoSize = True

Next komm

End Sub
Code kopieren

Allerdings wird beim Versuch, diesen auszuführen, dieser Teil: .Comments (Ende 3. Zeile)
blau markiert und folgende Fehlermeldung erscheint:

Fehler beim Kompilieren:
For each kann nur zum Durchlaufen einer Auflistung oder eines Datenfeldes verwendet werden.

Kann jemand helfen?

Danke im Voraus!

 

in meiner Dateiu kein Problem.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo,

d.h. dass du die SUB in das falsche Codemodul eingefügt hast, vermutlich ins Codemodul "DieseArbeitsmappe".
In diesem Codemodul bezieht sich die Objektinstanz "Me" natürlich auf eine Instanz des Workbook-Objektes (Arbeitsmappenobjekt). Dieses kennt aber keine Auflistung Comments, denn diese gibt es nur im Worksheet-Objekt.

Du musst die SUB in das Codemodul desjenigen Arbeitsblattes einfügen, in dem du die Comments-Auflistung ansprechen (d.h. in der Größe verändern) möchtest.

Geht man von dieser Grafik aus, so gehört die SUB in eines/jedes der 3 Codemodule für Tabelle1, Tabelle2, Tabelle3.
Sie gehört aber keinesfalls in das Codemodul von DieseArbeitsmappe bzw. Modul1.

 

Danke Hajo_Zi und Exl121150 für Eure schnellen Rückmeldungen!
Mit Deinem Tip, Exl121150, hat es gleich funktioniert :)