Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlg&
If Target.Count > 1 Then Exit Sub
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
If Not Intersect(Target, Range("b98,e98,h98")) Is Nothing Then
Derlg = Sheets("BDM").Cells.Find("*", , , , xlByRows, xlPrevious).Row
[b100] = Evaluate("INDEX(BDM!e:e,MATCH(b98&e98&h98,BDM!a1:a" & Derlg & "&BDM!b1:b" & Derlg & "&BDM!c1:c" & Derlg & ",0))")
End If
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub