Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3:F5")) Is Nothing Then
Call Tabelle1.HourlyRate(Target)
End If
End Sub
Sub HourlyRate(Target As Excel.Range)
If Target.Offset(0, -1).Text = "International Expert" And Target.Text = "Chair" Then
Target.Offset(0, 1).Value = 111
ElseIf Range("E3").Text = "International Expert" And Range("F3").Text = "Speaker" Then
Range("H3").Value = 222
ElseIf Range("E3").Text = "International Expert" And Range("F3").Text = "Member" Then
Range("H3").Value = 333
ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Chair" Then
Range("H3").Value = 444
ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Speaker" Then
Range("H3").Value = 555
ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Member" Then
Range("H3").Value = 666
ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Chair" Then
Range("H3").Value = 777
ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Speaker" Then
Range("H3").Value = 888
ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Member" Then
Range("H3").Value = 999
End If
End Sub