Public Function
24.04.2015 23:44:21
Kai
ich bastle gerade eine Public Function, sie funktioniert soweit. Aber sie funktioniert nicht, wenn ich den 2 Wert ändere. Hat wer eine Idee, bzw. ein Lösung?
Bitte mit Erklärung.
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
Wenn ich den Wert Zelle (varKM) ändere dann berechnet er es. Aber wenn ich den Wert set1 ändere passiert nicht.
Wäre sehr dankbar für eine Lösung.
LG
Kai
Anzeige