Kommentare bei PASTE per VBA löschen
28.05.2009 23:54:32
NoNet
Hallo Jörg,
ein Makro, das bei "Paste" anspringt gibt es aus Ermangelung eines geeigneten VBA-Ereignisses leider nicht.
Allerdings entspricht ein "Paste" auch einer Zelländerung, so dass man dieses Ereignis dafür "misbrauchen"könnte. Kopiere dazu das folgende Makro in das Klassenmodul "DieseArbeitsmappe" im VBA-Editor :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngZelle As Range
Dim objComment As Comment
For Each rngZelle In Target
Set objKomm = rngZelle.Comment
If Not objKomm Is Nothing Then rngZelle.Comment.Delete
Next
End Sub
Das Makro reagiert nun auf alle (inhaltlichen) Zelländerungen in der Mappe, also auch auf "normale" Eigaben in Zellen. Solange die geänderten/gepasteten Bereiche nicht zu gross sind, merkt man allerdings nichts davon.
Das manuelle Hizufügen von Zell-Kommentaren ist übrigens weiterhin möglich, da dies keiner inhaltlichen Zelländerung entspricht und das Makro daher nicht darauf reagiert !
Gruß, NoNet