Hi,
ich wiederhole im wesentlichen was bereits gesagt wurde.
Du musst mehr lesen um zu verstehen, Halil.
Schau Dir mal folgends Beispiel an.
Es gibt viele Wege Dein Vorhaben zu realisieren.
Da aber keine wissen kann, was als nächstes kommt, kann vieles die Lösung sein, aber auch vieles nicht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B14, B15, B16, B23")) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Address
Case Range("B14").Address
Range("B23") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "Kunde wünscht keinen Schutz")
Case Range("B15").Address
Range("B24") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "")
Case Range("B16").Address
Range("B25") = IIf(MsgBox("Wollen sie das Gerät versichern?", vbYesNo, "Frage") = vbYes, Target, "")
Case Range("B23").Address
Range("D23") = IIf(MsgBox("750?", vbYesNo, "Frage") = vbNo, Target, "8.99")
End Select
Application.EnableEvents = True
End If
End Sub
|