Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B7" Then
If Not Target Is Nothing Then
Select Case Range("B5").Value
Case "Staatsanleihe repofähig", "Unternehmensanleihe repofähig", "Bankanleihe repofähig"
If Target.Value < 0.2 Then
MsgBox "Unzulässig, da der Wert kleiner als 20% ist."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Case Else
End Select
End If
End If
End Sub