Ist die aufteilung in die Funktionen und Kommentierung besser oder immer noch grottenschlecht?
Ja, sie ist deutlich besser als vorher. Man kann besser dem folgen, was der Code letztendlich bewirkt.
Ich hab das gerade mal getestet, weil ich mir nicht mehr ganz sicher war.
1) Wenn die Zelle bereits einen Kommentar hat und man ruft AddComment auf, dann kommt genau der Fehler 1004.
So prüfst du, ob bereits ein Kommentar vorhanden / nicht vorhanden ist:
If Not Range("A1").Comment Is Nothing Then
Debug.Print "A1 hat bereits einen Kommentar"
Else
Debug.Print "A1 hat noch keinen Kommentar"
End If
Entweder änderst du also den bereits vorhandenen Kommentar,
oder du löschst ihn,
Range("A1").Comment.Delete
bevor du einen neuen erstellst.
2) Außerdem schlägt die Methode mit dem gleichen Fehler fehl, wenn es keine Zelle, sondern einen Bereich darstellt.
Range("B3:C4").AddComment ' Laufzeitfehlr 1004, weil Bereich anstatt Zelle
Grüße
|