Else oder Else If
26.11.2014 16:05:39
H.Peter
ich habe hier ein Problem, bei dem sich sehr wahrscheinlich einige wieder an den Kopf fassen werden.
Und ja, ich habe in den Beiträgen gesucht und die Regel gelesen, aber offensichtlich nciht verstanden.
Zu meinem Problem:
Ich muss eine Schneelast anhand von 6 verschiedenen Zonen berechnen. Innerhalb dieser Zonen gibt es noch einmal eine Unterscheidung der Höhe über dem Meeresspiegel (HüNN).
Die Schneezonen habe ich über eine Select case Verzweigung berücksichtigt, die unterschiedlichen Höhen
sollen noch einmal durch eine If - Else Verzweigung unterschieden werden.
Beim kompilieren wird jedoch immer angemeckert, dass die Else-Anweisung ohne If erfolgt, wenn ich das entsprechend korrigiere, ist es aber auch nicht ausreichend. Was mache ich falsch?
'Ermittlung der Schneelast
(If HüNN.Value <> "" Then)
Schneebas = ((HüNN.Value + 140) ^ 2 / 160)
Select Case Schneezone.ListIndex
Case 0: If HüNN.Value <= 400 Then Schnee = 0.65
Else: Schnee = Schneebas * 0.91 + 0.19
End If
Case 1: If HüNN.Value <= 400 Then Schnee = 0.82
Else: Schnee = (Schneebas * 0.91 + 0.19) * 1.25
End If
Case 2: If HüNN.Value <= 285 Then Schnee = 0.85
Else: Schnee = Schneebas * 1.91 + 0.25
End If
Case 3: If HüNN.Value <= 285 Then Schnee = 1.06
Else: Schnee = (Schneebas * 1.91 + 0.25) * 1.25
End If
Case 4: If HüNN.Value <= 255 Then Schnee = 1.1
Else: Schnee = Schneebas * 2.91 + 0.31
End If
Case 5: If HüNN.Value <= 255 Then Schnee = 1.38
Else: Schnee = (Schneebas * 2.91 + 0.31) * 1.25
End If
End Select