Public Function

Public Function Tarif(Zelle As Range)
Dim varKM As Variant
Dim varStandardtarif As Range
Dim varTramptarif As Range
Dim set1 As Variant
Set varKM = Zelle
set1 = Zelle.Offset(0, -1)
Set varStandardtarif = STANDARD.Range("J1:L43")
Set varTramptarif = TRAMP.Range("J1:L43")
If set1 = "T" And IsNumeric(varKM) And varKM >= 1 And varKM = 100 Then
Tarif = KM_Kosten(varTramptarif, CDbl(varKM)) * varKM
ElseIf IsNumeric(varKM) And varKM >= 1 And varKM = 100 Then
Tarif = KM_Kosten(varStandardtarif, CDbl(varKM)) * varKM
Else
Tarif = 0
End If
End Function
Private Function KM_Kosten(Tarif As Range, KM As Double) As Variant
KM_Kosten = "0"
On Error Resume Next
KM_Kosten = WorksheetFunction.VLookup(KM, Tarif, 3, 1)
End Function