|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Teil der Case Verschachtelung wird nicht abgearbeitet |
09.01.2015 12:00:47 |
Lana |
|
|
|
09.01.2015 13:55:19 |
Lana |
|
|
|
09.01.2015 19:23:26 |
Gast63167 |
|
|
|
09.01.2015 23:01:13 |
Lana |
|
|
|
10.01.2015 18:03:44 |
Gast93168 |
|
|
|
12.01.2015 07:49:07 |
Gast68861 |
|
|
Von:
Lana |
Datum:
09.01.2015 12:00:47 |
Views:
1600 |
Rating:
|
Antwort:
|
Thema:
Teil der Case Verschachtelung wird nicht abgearbeitet |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Teil der Case Verschachtelung wird nicht abgearbeitet |
09.01.2015 12:00:47 |
Lana |
|
|
|
09.01.2015 13:55:19 |
Lana |
|
|
|
09.01.2015 19:23:26 |
Gast63167 |
|
|
|
09.01.2015 23:01:13 |
Lana |
|
|
|
10.01.2015 18:03:44 |
Gast93168 |
|
|
|
12.01.2015 07:49:07 |
Gast68861 |
|
|