Hi Toni,

Du setzt Select Case nicht ganz richtig ein.

Mit Select Case Mittel legst Du fest, dass die Variable Mittel auf ihren Wert geprüft wird. Hinter Case kommt jetzt nur noch entweder der Wert oder der Wertebereich, der infrage kommt. Also

Case 1
Case 1 To 5
Case 1, 3, 6
usw.

Du hast aber hinter Case einen neuen Vergleich geschrieben - das geht leider nicht. Verwende doch dafür If:

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

Abgesehen davon: Sieh Dir mal den Datentyp der Funktion an - den habe ich mal etwas geändert. Mit Deinem hätte das sonst auch immer 0 ergeben.