Hallo Zusammen,
ich bräuchte mal Profi-Hilfe :-)
Mein VBA - Code wird nur teilweise abgearbeitet. Der Zweig --> Case Is >= 63 wird übersprungen, d.h. es wird alles nur bis 62 korrekt berechnet.
Evtl. kann ja jemand drübergucken, wo was Problem liegt :-)
LG und vielen Dank schon mal
Lana
CODE:
Public Function Prozentsatz(Vertragsoption As String, Land As String, Laufzeit As Variant, Nachlass As Variant) As String
Dim Prozent As Variant
Select Case Nachlass
Case 0
Prozent = "Nachlass fehlt"
Case ""
Prozent = "Nachlass fehlt"
Case 1 To 62
Select Case Vertragsoption
Case "Neugeschäft" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (90 * Laufzeit / 12) + 15
Case 12 To 23
Prozent = 90 + 15
Case 24 To 35
Prozent = 100 + 15
Case 36 To 99999
Prozent = 115 + 15
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((90 * Laufzeit / 12) + 15) / 100 * 80
Case 12 To 23
Prozent = (90 + 15) / 100 * 80
Case 24 To 35
Prozent = (100 + 15) / 100 * 80
Case 36 To 99999
Prozent = (115 + 15) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = ((90 * Laufzeit / 12) + 15) / 100 * 50
Case 12 To 23
Prozent = (90 + 15) / 100 * 50
Case 24 To 35
Prozent = (100 + 15) / 100 * 50
Case 36 To 99999
Prozent = (115 + 15) / 100 * 50
End Select
End Select
Case "Erweiterungen/Verländerungen" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (18 * Laufzeit / 12) + 15
Case 12 To 23
Prozent = 18 + 15
Case 24 To 35
Prozent = 35 + 15
Case 36 To 99999
Prozent = 65 + 15
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((18 * Laufzeit / 12) + 15) / 100 * 80
Case 12 To 23
Prozent = (18 + 15) / 100 * 80
Case 24 To 35
Prozent = (35 + 15) / 100 * 80
Case 36 To 99999
Prozent = (65 + 15) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = ((18 * Laufzeit / 12) + 15) / 100 * 50
Case 12 To 23
Prozent = (18 + 15) / 100 * 50
Case 24 To 35
Prozent = (35 + 15) / 100 * 50
Case 36 To 99999
Prozent = (65 + 15) / 100 * 50
End Select
End Select
Case "Neugeschäft über Partner" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (35 * Laufzeit / 12) + 15
Case 12 To 23
Prozent = 35 + 15
Case 24 To 35
Prozent = 45 + 15
Case 36 To 99999
Prozent = 65 + 15
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((35 * Laufzeit / 12) + 15) / 100 * 80
Case 12 To 23
Prozent = (35 + 15) / 100 * 80
Case 24 To 35
Prozent = (45 + 15) / 100 * 80
Case 36 To 99999
Prozent = (65 + 15) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = ((35 * Laufzeit / 12) + 15) / 100 * 50
Case 12 To 23
Prozent = (35 + 15) / 100 * 50
Case 24 To 35
Prozent = (45 + 15) / 100 * 50
Case 36 To 99999
Prozent = (65 + 15) / 100 * 50
End Select
End Select
Case Is >= 63 '------- HIER WIRD ÜBERSPRUNGEN
Select Case Vertragsoption
Case "Neugeschäft" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (90 * Laufzeit / 12)
Case 12 To 23
Prozent = 90
Case 24 To 35
Prozent = 100
Case 36 To 99999
Prozent = 115
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((90 * Laufzeit / 12)) / 100 * 80
Case 12 To 23
Prozent = (90) / 100 * 80
Case 24 To 35
Prozent = (100) / 100 * 80
Case 36 To 99999
Prozent = (115) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = ((90 * Laufzeit / 12)) / 100 * 50
Case 12 To 23
Prozent = (90) / 100 * 50
Case 24 To 35
Prozent = (100) / 100 * 50
Case 36 To 99999
Prozent = (115) / 100 * 50
End Select
End Select
Case "Erweiterungen/Verländerungen" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (18 * Laufzeit / 12)
Case 12 To 23
Prozent = 18
Case 24 To 35
Prozent = 35
Case 36 To 99999
Prozent = 65
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((18 * Laufzeit / 12)) / 100 * 80
Case 12 To 23
Prozent = (18) / 100 * 80
Case 24 To 35
Prozent = (35) / 100 * 80
Case 36 To 99999
Prozent = (65) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = (18 * Laufzeit / 12) / 100 * 50
Case 12 To 23
Prozent = (18) / 100 * 50
Case 24 To 35
Prozent = (35) / 100 * 50
Case 36 To 99999
Prozent = (65) / 100 * 50
End Select
End Select
Case "Neugeschäft über Partner" '<-------
Select Case Land
Case "Deutschland" ' <-----
Select Case Laufzeit
Case Is < 12
Prozent = (35 * Laufzeit / 12)
Case 12 To 23
Prozent = 35
Case 24 To 35
Prozent = 45
Case 36 To 99999
Prozent = 65
End Select
Case "Österreich/Schweiz" ' <----- 80%
Select Case Laufzeit
Case Is < 12
Prozent = ((35 * Laufzeit / 12)) / 100 * 80
Case 12 To 23
Prozent = (35) / 100 * 80
Case 24 To 35
Prozent = (45) / 100 * 80
Case 36 To 99999
Prozent = (65) / 100 * 80
End Select
Case "Ausland" ' <----- 50%
Select Case Laufzeit
Case Is < 12
Prozent = ((35 * Laufzeit / 12)) / 100 * 50
Case 12 To 23
Prozent = (35) / 100 * 50
Case 24 To 35
Prozent = (45) / 100 * 50
Case 36 To 99999
Prozent = (65) / 100 * 50
End Select
End Select
End Select
End Select
End Select
Prozentsatz = Prozent
End Function
|