Änderung vorgenommen, trotzdem dass problem, wenn ich die 1. Frage verneine, fragt er immernoch die letzte frage.
verneine ich die letzte frage übernimmt er die Message
"Kunde wünscht keinen Schutz" anstatt nichts hinzuschreiben.
ich wäre dankbar für jede hilfe....
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(0, 0) = "B23" Then
Range("D23") = IIf(MsgBox("750?", vbYesNo, "Frage") = vbNo, Target, "8.99")
End If
End Sub
|