Opzoeken van een of meerdere regels in MsgBox

[TomH90]

Beste,

Ik heb op tabblad Comments opmerkingen staan. Deze wil ik laten zien in een MsgBox op basis van een waarde in kolom A

Tabblad: ToDo
[table="width: 500, class: grid"]
[tr]
[td]nr[/td]
[td]Prio[/td]
[td]Datum[/td]
[td]Wie[/td]
[td]To Do[/td]
[td]Status[/td]
[td]Comments[/td]
[/tr]
[tr]
[td]1[/td]
[td]1[/td]
[td]31-8-2016[/td]
[td]Ik[/td]
[td]Test To Do 1[/td]
[td]Open[/td]
[td]2[/td]
[/tr]
[tr]
[td]2[/td]
[td]2[/td]
[td]5-9-2016[/td]
[td]Ik[/td]
[td]Test To Do 2[/td]
[td]Open[/td]
[td]1[/td]
[/tr]
[/table]

Tabblad Comments:
[table="width: 500, class: grid"]
[tr]
[td]nr[/td]
[td]DatumTijd[/td]
[td]Comment[/td]
[/tr]
[tr]
[td]1[/td]
[td]31-8-2016 17:00:00[/td]
[td]Test Comment nr 1[/td]
[/tr]
[tr]
[td]1[/td]
[td]1-9-2016 8:30:00[/td]
[td]Test Comment nr 2[/td]
[/tr]
[tr]
[td]2[/td]
[td]2-9-2016 8:30:00[/td]
[td]Test Comment nr 3[/td]
[/tr]
[/table]

Op het moment dat ik in een regel zit van ToDo 1 moet de messagebox de comments weergeven van ToDo 1 (nr = 1)

 

[OctaFish]

Een Excel bestandje lijkt mij beter dan een teksttabel. Of heb je graag dat we alles overtypen?

 

[TomH90]

copy, paste doet ook wonderen

 

[snb]

copy, paste doet ook wonderen

Bedoel je dit ?

 

[VenA]

Zoiets? Al zou ik er niet blij van worden als ik er mee zou moeten werken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column < 8 Then
    ar = Sheets("Comments").Cells(1).CurrentRegion
    For j = 2 To UBound(ar)
        If ar(j, 1) = Cells(Target.Row, 7) Then c00 = c00 & Format(ar(j, 2), "dd-mm-yyyy hh:mm ") & ar(j, 3) & Chr(10)
    Next j
    MsgBox c00
End If
End Sub