änderungs versuch hat geklappt, aber er trägt jetzt immer nur "Wahr oder Falsch"ein in die Zelle "D23"
Was habe ich falsch eingegeben?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B14" Then
Range("B23") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "Kunde wünscht keinen Schutz")
End If
If Target.Address(0, 0) = "B15" Then
Range("B24") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "")
End If
If Target.Address(0, 0) = "B16" Then
Range("B25") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "")
End If
If Target.Address = ("$B$23") Then
If [B14] = [B23] Then [D23] = Range("D23") = IIf(MsgBox("Soll es mit 750€ Agedeckt werden?", vbYesNo, "Frage") = vbYes, 8.99, "")
End If
End Sub
|