Weeral een nieuwe vraag. Ik heb dit:
Range("I2") = Range("I2") + Range("B5").Value
Range("I5") = Range("I5") + Range("B7").Value
Range("H13") = Range("H13") + Range("C13").Value
Range("H14") = Range("H14") + Range("C14").Value
Range("H15") = Range("H15") + Range("C15").Value
Range("H17") = Range("H17") + Range("C17").Value
Range("H18") = Range("H18") + Range("C18").Value
Range("H19") = Range("H19") + Range("C19").Value
Range("H20") = Range("H20") + Range("C20").Value
Range("H21") = Range("H21") + Range("C21").Value
Range("H23") = Range("H23") + Range("C23").Value
Range("H24") = Range("H24") + Range("C24").Value
Range("H26") = Range("H26") + Range("C26").Value
Range("H27") = Range("H27") + Range("C27").Value
Range("H28") = Range("H28") + Range("C28").Value
Range("H30") = Range("H30") + Range("C30").Value
Range("H31") = Range("H31") + Range("C31").Value
Range("H32") = Range("H32") + Range("C32").Value
Range("H33") = Range("H33") + Range("C33").Value
Range("H34") = Range("H34") + Range("C34").Value
Range("H35") = Range("H35") + Range("C35").Value
Range("H36") = Range("H36") + Range("C36").Value
Range("H37") = Range("H37") + Range("C37").Value
Range("H38") = Range("H38") + Range("C38").Value
Range("H39") = Range("H39") + Range("C39").Value
Range("H40") = Range("H40") + Range("C40").Value
Range("H41") = Range("H41") + Range("C41").Value
Range("H42") = Range("H42") + Range("C42").Value
Range("H43") = Range("H43") + Range("C43").Value
Range("H44") = Range("H44") + Range("C44").Value
Range("H45") = Range("H45") + Range("C45").Value
Range("H46") = Range("H46") + Range("C46").Value
Range("H47") = Range("H47") + Range("C47").Value
Range("H48") = Range("H48") + Range("C48").Value
Range("H49") = Range("H49") + Range("C49").Value
(de lege regels zijn om het voor mezelf duidelijk te houden)
Dit werkt uiteraard, maar is het niet mogelijk om al deze regels samen te voegen tot één code. Het is niet noodzakelijk, maar wel 'mooier'.
Range("I2") = Range("I2") + Range("B5").Value
Range("I5") = Range("I5") + Range("B7").Value
Range("H13") = Range("H13") + Range("C13").Value
Range("H14") = Range("H14") + Range("C14").Value
Range("H15") = Range("H15") + Range("C15").Value
Range("H17") = Range("H17") + Range("C17").Value
Range("H18") = Range("H18") + Range("C18").Value
Range("H19") = Range("H19") + Range("C19").Value
Range("H20") = Range("H20") + Range("C20").Value
Range("H21") = Range("H21") + Range("C21").Value
Range("H23") = Range("H23") + Range("C23").Value
Range("H24") = Range("H24") + Range("C24").Value
Range("H26") = Range("H26") + Range("C26").Value
Range("H27") = Range("H27") + Range("C27").Value
Range("H28") = Range("H28") + Range("C28").Value
Range("H30") = Range("H30") + Range("C30").Value
Range("H31") = Range("H31") + Range("C31").Value
Range("H32") = Range("H32") + Range("C32").Value
Range("H33") = Range("H33") + Range("C33").Value
Range("H34") = Range("H34") + Range("C34").Value
Range("H35") = Range("H35") + Range("C35").Value
Range("H36") = Range("H36") + Range("C36").Value
Range("H37") = Range("H37") + Range("C37").Value
Range("H38") = Range("H38") + Range("C38").Value
Range("H39") = Range("H39") + Range("C39").Value
Range("H40") = Range("H40") + Range("C40").Value
Range("H41") = Range("H41") + Range("C41").Value
Range("H42") = Range("H42") + Range("C42").Value
Range("H43") = Range("H43") + Range("C43").Value
Range("H44") = Range("H44") + Range("C44").Value
Range("H45") = Range("H45") + Range("C45").Value
Range("H46") = Range("H46") + Range("C46").Value
Range("H47") = Range("H47") + Range("C47").Value
Range("H48") = Range("H48") + Range("C48").Value
Range("H49") = Range("H49") + Range("C49").Value
(de lege regels zijn om het voor mezelf duidelijk te houden)
Dit werkt uiteraard, maar is het niet mogelijk om al deze regels samen te voegen tot één code. Het is niet noodzakelijk, maar wel 'mooier'.