hallo Luc, ziet er prima uit. Je snapt het princiepe, en dat is alles wat telt 

Sorry dat ik door familiale omstandigheden niet eerder gereageerd heb.

Groeten,

SoftAid              

invoegen op werkblad, niet in module, bestaande vba code behouden !

Dim LastCommentText As String
Dim LastCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Comment

    ' Controleer of vorige cel een commentaar had
    If Not LastCell Is Nothing Then
        Set c = LastCell.Comment

        If Not c Is Nothing Then
            ' Is de commentaartekst gewijzigd?
            If c.Text <> LastCommentText Then
                Call KopieerNotitie 
            End If
        End If
    End If

    ' Nieuwe selectie opslaan
    Set LastCell = Target
    If Not Target.Comment Is Nothing Then
        LastCommentText = Target.Comment.Text
    Else
        LastCommentText = ""
    End If
End Sub

Sub KopieerNotitie()
    Dim bron As Range
    Dim doel As Range

    Set bron = Sheets("Hoofdblad").Range("A1")
    Set doel = Sheets("Totaal").Range("A1")

    ' Waarde kopiëren
    doel.Value = bron.Value

    ' kopiëren (indien aanwezig)
    On Error Resume Next
    doel.ClearComments
    If Not bron.Comment Is Nothing Then
        doel.AddComment bron.Comment.Text
    End If
    On Error GoTo 0
End Sub

Wel bedankt Softaid Ik ga er eens werk van maken Maar zelfs met kabel heeft hij kuren Ik hou je op de hoogte mvg ricardo

SoftAid,


Ben je ermee geholpen als ik de nummers van de fotos aanpas,bv: o tot 199 voor Andorra , 200 tot 399 voor België enz.
 ps: of gaat dit via een macro in de toekomst?

             mvg,Luc