Wie mach ich es wenn bei B23 das Gerät eingetragen wird, dass er dann zusätzlich die Frage mit der abdeckungssumme fragt.
Momentan macht er es getrennt.
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, "")
End If
If Target.Address(0, 0) = "B23" Then
Range("D23") = IIf(MsgBox("Soll es mit 750€ Agedeckt werden?", vbYesNo, "Frage") = vbYes, 8.99, "")
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
End Sub
|