Public Function ConnectTriggers()
Dim rngZuordnungenTrigger As Range
Dim rngZelle As Range
Dim ws As Excel.Worksheet
Dim lo As Excel.ListObject
Dim rngChildTables As Range
Dim strSearch As String
Dim rngFindCell As Range
strSearch = "Initalisierung"
Set rngZuordnungenTrigger = Tabelle1.ListObjects("ZuordnungenTrigger").DataBodyRange
For Each rngZelle In rngZuordnungenTrigger
strSearch = rngZelle.Value
Dim i
For Each i In Array(2, 3, 4)
Set ws = Worksheets(i)
For Each lo In ws.ListObjects
Set rngChildTables = lo.DataBodyRange
rngFindCell = rngChildTables.Find(strSearch)
rngFindCell.Font.Color = RGB(255, 0, 0)
Next lo
Next i
Next rngZelle
End Function
Vielen Dank im voraus.