Sub LvlAusgabe()
Dim result As String
Dim a As Boolean
Dim b As Boolean
Dim f As Boolean
Dim g As Boolean
a = IIf(Range("E3") = 1, True, False)
b = IIf(Range("E8") = 1, True, False)
f = IIf(Range("E13") = 1, True, False)
g = IIf(Range("E18") = 1, True, False)
If (a Or b) And Not (f Or g) Then
result = "A, B oder AB"
ElseIf f And Not (a Or b Or g) Then
result = "F"
ElseIf g And Not (a Or b Or f) Then
result = "G"
Else
result = "Bitte ankreuzen"
End If
Range("G2") = result
End Sub