Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Stefan_calc vom 17.01.2019, 08:17 Options
Makro erstellen für Kommentar einfügen
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
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
Antwort 1 von Hajo_Zi vom 17.01.2019, 08:29 Options
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
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.2019, 09:26 Options
Hi Stefan,
eine weitere Möglichkeit
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
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.2019, 09:31 Options
Hi,
danke Hajo für deinen Hinweis. Jetzt gehts.
Stefan
danke Hajo für deinen Hinweis. Jetzt gehts.
Stefan
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Excel: Grafik automatisch in Kommentar einfügen
Majin 07.08.2007 - 49 Hits - 2 Antworten
"Einfügen" als Makro erstellen
PierreHamburg 29.07.2007 - 71 Hits - 2 Antworten
Brauche Tipps für einen individuellen VBA-Code
varginator 03.04.2008 - 118 Hits - 14 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
