tekst uit een cel in een opmerking ander cel plaatsen

[MMarie]

Soms is de oplossing heel simpel .

Nu valt me op dat bij de macro de opmerking van van nr 163 ook zet bij nr 63 (in mijn voorbeeld kwamen die nummers niet voor en nu ik m in het uiteindelijk bestand test zie ik het pas. Het lijkt dus wel of hij de honderdtal niet ziet? Of is er iets anders aan de hand?

 

[HSV]

In de herkansing.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range, c As Range
If Not Intersect(Target, Columns(4)) Is Nothing Then
Application.EnableEvents = False
 With Sheets("blad1")
     For Each cl In .UsedRange.SpecialCells(2)
        cl.ClearComments
        cl.Interior.ColorIndex = xlNone
       For Each c In Columns(1).SpecialCells(2)
        If CStr(cl) = Split(c)(UBound(Split(c))) Then
         If c.Offset(, 3) <> "" Then
           cl.AddComment c.Offset(, 3).Text
           cl.Interior.Color = c.Offset(, 2).Interior.Color
         End If
        End If
       Next c
     Next cl
 End With
Application.EnableEvents = True
End If
End Sub

 

[MMarie]

Helemaal goed! Bedankt voor de hulp en het geduld!