Laufzeitfehler 13 Typen unverträglich

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "JA: Welche" And Intersect(Target, Range("B10")) Is Nothing Then
Range("D10").Select
End If
If Target.Value = "JA: Risiko ist jedoch abschätzbar" And Not Intersect(Target, Range("B12") _
) Is Nothing Then
Range("D12").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: nicht abschätzbares Risiko" And Not Intersect(Target, Range("B12"))  _
Is Nothing Then
Range("D12").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: interne Inbetriebnahme ist erforderlich" And Not Intersect(Target,  _
Range("B14")) Is Nothing Then
Range("D14").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: unter 8h und / oder unter 250€" And Not Intersect(Target, Range("B16" _
)) Is Nothing Then
Range("D16").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: unter 16h und / oder unter 500€" And Not Intersect(Target, Range(" _
B16")) Is Nothing Then
Range("D16").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: über 16h und / oder über 500€" And Not Intersect(Target, Range("B16") _
) Is Nothing Then
Range("D16").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: Lösung vorhanden" And Not Intersect(Target, Range("B18")) Is Nothing  _
Then
Range("D18").Select
SendKeys "{F2}"
End If
If Target.Value = "JA: keine Lösung vorhanden" And Not Intersect(Target, Range("B18")) Is  _
Nothing Then
Range("D18").Select
SendKeys "{F2}"
End If
If Target.Value = "JA" And Not Intersect(Target, Range("B20")) Is Nothing Then
Range("D20").Select
SendKeys "{F2}"
End If
End Sub