plattegrond en een database.

Sub M_snb()
  On Error Resume Next
  
  For Each cl In Sheets("plattegrond").UsedRange.SpecialCells(2)
    c01 = "Onbekend"
    Sheets("database").Columns(2).Find(cl, , -4163, 1).Offset(, -1).Resize(8, 2).Copy
    
    With GetObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        c01 = Replace(Replace(.GetText, vbTab, ": "), vbCrLf, vbLf)
    End With
    
    If cl.Comment Is Nothing Then cl.AddComment
    With cl.Comment.Shape
      .Parent.Text c01
      .Fill.ForeColor.RGB = RGB(0, 128, 255)
      .TextFrame.Characters.Font.Color = vbWhite
      .TextFrame.Characters.Font.Size = 11
      .TextFrame.AutoSize = True
    End With
  Next cl
End Sub

f.Offset(1).Resize(7) = Application.Transpose(Array(TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, Format(TextBox7, "mm-dd-yyyy"), TextBox8))

Private Sub CommandButton1_Click()
Public ar, f As Range
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim f As Range

  Set f = Sheets("database").Columns(2).Find(Target, , xlValues, xlWhole)
  '
    f.Offset(1).Resize(7) = Application.Transpose(Array(TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, Format(TextBox7, "mm-dd-yyyy"), TextBox8))

  'If Not f Is Nothing Then
    ar = f.Resize(8)
    container.Show
   Else
    MsgBox "Geen gegevens gevonden voor: " & Target
  End If
  Cancel = -1
End Sub