Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("AJ7") = Range("AI5") * Range("AI7")
Range("AJ8") = Range("AI5") * Range("AI8")
Range("AJ9") = Range("AI5") * Range("AI9")
Range("AJ10") = Range("AI5") * Range("AI10")
Range("AJ11") = Range("AI5") * Range("AI11")
Range("AJ12") = Range("AI5") * Range("AI12")
Range("AJ13") = Range("AI5") * Range("AI13")
Range("AJ14") = Range("AI5") * Range("AI14")
usw...bis
Range("AJ1006") = Range("AI5") * Range("AI1006")End Sub
End Sub