hallo
...du kannst die zelle kopieren und nur den kommentar in dein ziel einfügen.
Schmeiss mal den macrecorder an.
Inhalt einfügen kommentare.
ransi
AW: Nur Kommentar kopieren
03.11.2005 19:18:55
Erich
Hallo Dominik,
kopieren geht wohl nicht, aber so sollte sich der Comment übertragen lassen:
If Not Tab1.Cells(y + 1, 2).Comment Is Nothing Then
With Tab2.Cells(6 + i, Warenträger)
.AddComment
.Comment.Text Tab1.Cells(y + 1, 2).Comment.Text
End With
End If
Vielleicht müsste man auch noch prüfen, ob die Zielzelle schon einen Comment hat...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Nur Kommentar kopieren
03.11.2005 19:30:47
Dominik
hallo erich
vielen dank für deinen code.
hab ihn noch mit .ClearComments ergänzt.
If Not Tab1.Cells(y + 1, 2).Comment Is Nothing Then
With Tab2.Cells(6 + i, Warenträger)
.ClearComments
.AddComment
.Comment.Text Tab1.Cells(y + 1, 2).Comment.Text
End With
End If
viele grüsse