Wenn man eine Person zuteilt, wird das vermutlich darüber geschehen, dass ihr in einer Zelle etwas eintragt; vermutlich die CaseId.
Solch eine Änderung triggert das WorksheetChange-Event. https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.change
grober Ansatz:
'in Tabelle: Dienstplan
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Call AddDetailsAsComment(Target, CStr(Target.Value)) 'Annahme: Eine einzige Zelle wurde geändert; in jener steht die CaseId
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 'Annahme: Spalte E = Spalte mit Beschreibung
Call Cell.AddComment(strDetails)
End With
End Sub
Fehlerbehandlung wurde hier zwecks Übersichtlichkeit ausgelassen.
Grüße
|