Über Add.Comment

Forumthread: Über Add.Comment

Über Add.Comment

14.07.2004 01:31:02

Giuseppe

Hallo Freunde
Mein Vorhaben:
wenn in I3:I250 ein Wert vorhanden ist soll in der Zellen als Kommentar der Wert von L3:L250 eingetragen werden.
Hat jemand ein Code zur Hand oder ein beispiel?
Danke für eure Hilfe
Giuseppe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Über Add.Comment

Boris
AW: Über Add.Comment

Giuseppe
AW: Über Add.Comment

Boris

AW: Über Add.Comment

Boris

Hi Guiseppe,
quick and dirty:
Option Explicit


Sub til()
Dim C As Range
On Error Resume Next
For Each C In [i3:i250]
C.Comment.Delete
If C <> "" Then C.AddComment C.Value
Next C
End Sub

Grüße Boris

AW: Über Add.Comment

Giuseppe

Hallo Boris
Danke für deine Antwort.
Ich möchte in die Zellen I3:I250 der Wert von L3:L250 haben.
In dein Code ich sehe kein Verweis auf die Zellen...
Ciao
Giuseppe

AW: Über Add.Comment

Boris

Hi Guiseppe,
sorry - glatt überlesen:
Option Explicit


Sub til()
Dim C As Range
On Error Resume Next
For Each C In [i3:i250]
C.Comment.Delete
If C <> "" Then C.AddComment C.Offset(0, 3).Value
Next C
End Sub

Grüße Boris

Forumthread: Über Add.Comment

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread