title image


Smiley für Kommentare kann man das auch so ähnlich erweitern


Sub kom_change(Bereich As Range, Optional Anhang = "_2")

For Each ko In ActiveSheet.Comments

'so werden nur die Kommentare im gewählten Zellbereich des aktiven Blattes geändert!

If Not Intersect(ko.Parent, Bereich) Is Nothing Then

ko.Text ko.Text & Anhang

End If

Next

End Sub





Sub test()

kom_change Selection, "test2"

End Sub




Gruß Wolf W.Radzinski



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: