Laufzeitfehler 13 Typen unverträglich
08.07.2016 10:50:03
Wasi
Makro:
Option Explicit
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