ich brauche bei einem dringendem Problem bitte Eure Hilfe!!!
Ich habe mir folgende Funktion gebaut:
Function WennAuswahl_old(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
Diese Funktioniert auch fast, und zwar wird erst der richtige Wert eingetragen, aber sobald ich in eine andere Zelle wechsele wird aus dem eingesetzten Wert dieser Fehler --> #Wert
Leider habe ich keine Ahnung warum!!!
Danke schonmal
Steffen