--> das macht micht noch wahnsinnig
bei meiner Recherche habe ich gelesen das es in Excel 97 dieses Fehler gab aber in Excel 2000
Danke schonmal für Eure Hilfe
Hier nochmal die komplette Funktion
Function WennAuswahl(Zahl As String) As Currency
'Wenn Funktion für Provisionssätze
Application.Volatile
Select Case Zahl
Case Is <= 0.03
WennAuswahl = Sheets("Admin").Range("B32").Value
Case Is <= 0.035
WennAuswahl = Sheets("Admin").Range("B33").Value
Case Is <= 0.04
WennAuswahl = Sheets("Admin").Range("B34").Value
Case Is <= 0.045
WennAuswahl = Sheets("Admin").Range("B35").Value
Case Is <= 0.05
WennAuswahl = Sheets("Admin").Range("B36").Value
Case Is <= 0.055
WennAuswahl = Sheets("Admin").Range("B37").Value
Case Is <= 0.06
WennAuswahl = Sheets("Admin").Range("B38").Value
Case Is <= 0.065
WennAuswahl = Sheets("Admin").Range("B39").Value
Case Is <= 0.07
WennAuswahl = Sheets("Admin").Range("B40").Value
Case Is <= 0.075
WennAuswahl = Sheets("Admin").Range("B41").Value
Case Is <= 0.08
WennAuswahl = Sheets("Admin").Range("B42").Value
Case Is <= 0.085
WennAuswahl = Sheets("Admin").Range("B43").Value
Case Is <= 0.09
WennAuswahl = Sheets("Admin").Range("B44").Value
Case Is <= 0.095
WennAuswahl = Sheets("Admin").Range("B45").Value
Case Is <= 0.1
WennAuswahl = Sheets("Admin").Range("B46").Value
Case Is > 0.1
WennAuswahl = Sheets("Admin").Range("B47").Value
End Select
End Function
Steffen