Ich möchte gerne Kommentare von einer Mappe in eine Andere kopieren ohne select.
Könnt Ihr mir da helfen
so in etwa
Workbooks(WB1).Sheets(Tbb).Range("A6:O2001") = Workbooks(WB2).Sheets(Tbb).Range("A6:O2001").Comment
im Voraus vielen Dank
mfg Ulf
Sub tt()
Dim c As Comment
For Each c In Sheets(1).Comments
Sheets(2).Range(c.Parent.Address).AddComment c.Text
Next
End Sub