Ä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