Hallo Nepumuk,
danke für deine Antwort.
Das hat leider nichts geholfen.
Habe es so eingepflegt, wie du das geschrieben hattest. Jetzt tritt das gleiche Phänomen wieder ein, wie oben beschrieben.
Er erzeugt den Kommentar zwar, jedoch schreibt den Text nicht hinein. Die Kalkulation wird auch nicht auf Automatik zurück gesetzt, das heißt, dass das Makro hier "abbricht" ohne Meldung.
Interessanter Fakt bei diesem Fehler, den ich gesehen habe:
Ich hab in meinem Makro eine zusätzliche Prüfung eingebaut. Wenn schon ein Kommentar vorhanden ist, hat es auch einen Text (so sollte es sein). Ist ein Kommentar vorhanden, kann ich den Text einfach editieren. Das klappt auch mit der bedingten Formatierung dann kurioserweise.
Werde wohl den meiner Meinung nach unsauberen Weg gehen müssen und den leeren Kommentar mit
Code:
On Error Resume Next
abfangen müssen.
Hast du vielleicht noch eine Idee?
EDIT:
Habe den Fehler gefunden, jedoch noch keine Lösung dafür parat.
Folgende Funktion verursacht sehr wahrscheinlich den Fehler:
Code:
Function CommName2(rngZelle As Range, rngMAZelle As Range) As Boolean
CommName2 = InStr(rngZelle.Comment.Text, rngMAZelle.Value) > 0
End Function
Sobald ich diese in irgendeiner Form in der bedingten Formatierung habe, macht das Makro nicht weiter.
Das betrifft in diesem Fall nicht nur das Hinzufügen eines Kommentares, sondern auch z.B. das Hinzufügen einer bedingten Formatierung via VBA.
Gruß Diesaster
[Diese Nachricht wurde von Diesaster am 11. Mai. 2021 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP