Hallo bräuchte Hilfe bei einer If Funktion wo ich die Fehlermeldung bekomme - Fehler beim Kompilieren: Else ohne If
Nach durchlaufen der Bedingung soll in das Formularfeld Bonus_Wertung B1 bis B6 einetragen werden.
Danke:
Code:
Private Sub cmdBonusBerechnen_Click()
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim B5 As Byte
Dim B6 As Byte
B1 = 100
B2 = 90
B3 = 80
B4 = 70
B5 = 50
B6 = 0
If [Punkt_Ergebnis] >= 90 Then [Bonus_Wertung] = B1
ElseIf [Punkt_Ergebnis] >= 80 Or [Punkt_Ergbenis] <= 89 Then [Bonus_Wertung] = B2
ElseIf [Punkt_Ergebnis] >= 70 Or [Punkt_Ergbenis] <= 79 Then [Bonus_Wertung] = B3
ElseIf [Punkt_Ergebnis] >= 60 Or [Punkt_Ergbenis] <= 69 Then [Bonus_Wertung] = B4
ElseIf [Punkt_Ergebnis] >= 50 Or [Punkt_Ergbenis] <= 59 Then [Bonus_Wertung] = B5
Else: [Bonus_Wertung] = B6
End If
End Sub
|