Hallo Excel Experten,
ich habe folgende benutzerdefinierte Funktion geschrieben:

Function Kilometergeld(km As Integer, Mittel As String) As Integer
    Select Case Mittel
        Case InStr(Mittel, \"PKW\") > 1
            If km <= 50 Then
                Kilometergeld = 0.3
            Else
                Kilometergeld = 0.2
            End If
        Case InStr(Mittel, \"Motorrad\") > 1
            Kilometergeld = 0.13
        Case Else
            Kilometergeld = 0
    End Select
End Function

Mit km übergebe ich die gefahrenden Kilometer. Mittel verweist auf eine Zelle, in der über eine Gültigkeitsprüfung eine Liste mit folgenden Inhalten zur Auswahl stehen:

Öffentliche Verkehrsmittel
Mietwagen
Dienstwagen
privater PKW mit triftigem Grund
privater PKW ohne triftigen Grund
Motorrad mit triftigem Grund
Motorrad ohne triftigen Grund
Fahrrad

Wähle ich in der Zelle als Verkehrsmittel z.B. den privaten PKW aus, erhalte ich als Ergebnis der Funktion trotzdem 0. Setze ich einen Haltepunkt im VBA Code, liefert mir Instr den Wert 10.

Wo habe ich in der Funktion einen Fehler? Bin für jeden Tipp dankbar.
Gruß aus dem Bergischen Land
Toni