Thema: Makro erstellen für Kommentar einfügen


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

Guten Morgen zusammen,

habe gerade versucht ein Makro aufzuzeichnen. Dazu machte ich folgendes: Menü einfügen / Kommentar. Dann habe ich die Aufzeichnung beendet. Wenn ich das Makro ausführe, kommt die Meldung: "Laufzeitfehler 1004" und ich "darf" den debugger starten. Hier gab es Probleme mit der Anweisung:
Range("B3832").AddComment

Hat jemand eine Idee wie man Kommentare per Makro einfügen kann ?

Gruß aus Forchheim
Stefan

 Von: Stefan_calc Datum: 17.01.2007, 08:17

alle Antworten zu dieser Frage


Antwort 1 von Hajo_Zi vom 17.01.2007, 08:29
Hallo Stefan,

wenn ein Kommentar schon in der Zelle ist kannst Du keinen einfügen mit "Range("B3832").AddComment"
Versuche es mit Range("B3832").NoteText "123"
Damit wird aber der vorhandene überschrieben.

Gruß Hajo

Antwort 2 von Beverly vom 17.01.2007, 09:26
Hi Stefan,

eine weitere Möglichkeit

Sub Stefan_calc()
If Not Range("B3832").Comment Is Nothing Then
Range("B3832").Comment.Text "Hallo, ich wurde ersetzt"
Else
Range("B3832").AddComment "Hallo, ich bin neu hier"
End If
End Sub


Falls ein Kommentar in der Zelle vorhanden ist, wird er überschrieben, falls noch keiner, dann einer eingefügt.

NoteText lässt maximal 255 Zeichen zu, andernfalls muss der Text aufgeteilt werden. Siehe dazu auch die Hilfe zu NoteText.

Bis später,
Karin

Antwort 3 von Stefan_calc vom 17.01.2007, 09:31
Hi,

danke Hajo für deinen Hinweis. Jetzt gehts.

Stefan

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.

07101 07102 07103 07104 07105 07106 07107