Thema Datum  Von Nutzer Rating
Antwort
Rot Teil der Case Verschachtelung wird nicht abgearbeitet
 09.01.2015 12:00:47 Lana
Solved
09.01.2015 13:55:19 Lana
NotSolved
09.01.2015 19:23:26 Gast63167
NotSolved
09.01.2015 23:01:13 Lana
NotSolved
10.01.2015 18:03:44 Gast93168
NotSolved
12.01.2015 07:49:07 Gast68861
Solved

Ansicht des Beitrags:
Von:
Lana		 Datum:
09.01.2015 12:00:47		 Views:
1681		 Rating:
     
Antwort:
 Nein
Thema:
Teil der Case Verschachtelung wird nicht abgearbeitet
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
Hallo Zusammen,
 
ich bräuchte mal Profi-Hilfe :-)
Mein VBA - Code wird nur teilweise abgearbeitet. Der Zweig <span style="font-family: Arial, Verdana, sans-serif;">    --> Case Is >= 63 wird übersprungen, d.h. es wird alles nur bis 62 korrekt berechnet.
 
</span>Evtl. kann ja jemand drübergucken, wo was Problem liegt :-)
 
LG und vielen Dank schon mal
Lana
 
<strong>CODE:</strong>
 
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
                     
<strong>    Case Is >= 63 '------- HIER WIRD ÜBERSPRUNGEN</strong>
        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

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Teil der Case Verschachtelung wird nicht abgearbeitet
 09.01.2015 12:00:47 Lana
Solved
09.01.2015 13:55:19 Lana
NotSolved
09.01.2015 19:23:26 Gast63167
NotSolved
09.01.2015 23:01:13 Lana
NotSolved
10.01.2015 18:03:44 Gast93168
NotSolved
12.01.2015 07:49:07 Gast68861
Solved