Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Call AddDetailsAsComment(Target, CStr(Target.Value))
End Sub
Private Sub AddDetailsAsComment(Cell As Excel.Range, CaseId As String)
With Worksheets("TabelleB")
Dim rngCaseId As Excel.Range
Set rngCaseId = .UsedRange.Find(CaseId, , xlValues, xlWhole, xlByColumns, MatchCase := False)
Dim strDetails As String
strDetails = .Cells(rngCaseId.Row, "E").Value
Call Cell.AddComment(strDetails)
End With
End Sub