Public Function GetMaxWert(Target As Excel.Range) As Variant
    Dim t2 As Excel.Range
    Dim t3 As Excel.Range
 
    If Target.Value = Null Or Target.Value = "" Then Exit Function
    Set t2 = ActiveSheet.Cells(Target.Row, Target.Column + 1)
    Set t3 = ActiveSheet.Cells(t2.Row, t2.Column + 1)
 
    'Wir sind ja in Excel ;-)
    GetMaxWert = Application.WorksheetFunction.Max(Target.Value, t2.Value, _
      t3.Value)
 
End Function