Hallo!

Wenn es bei der Select-case-Konstruktion bleiben soll, könnte man das mit folgendem Lösungsansatz realisieren:

Function KMGeld(km As Integer, Mittel As Beförderungsmittel)
Select Case Mittel
Case \"Öffentliche Verkehrsmittel\"
KMGeld = 1
Case \"Dienstwagen\", \"privater PKW mit triftigem Grund\", \"privater PKW ohne triftigen Grund\"
If km <= 50 Then
KMGeld = 0.3
Else
KMGeld = 0.2
End If
Case \"Motorrad mit triftigem Grund\", \"Motorrad ohne triftigen Grund\"
KMGeld = 0.1
Case \"Fahrrad\"
KMGeld = 0.01
Case Else
KMGeld = 0
End Select
End Function

Gruß
Manes