Doelzoeken meerdere cellen

[barendrecht82]

Hoi,

ik heb de volgende excelsheet waar ik marge wil berekenen. Elke keer moet ik per cel Doelzoeken kijken wat het wordt..

Kan ik doelzoeken verwijzen naar 1 cel die ik wijzig en dat hij dan doorrekent over alle cellen??

Het gaat namelijk over omzetten en marge per maand

 

[cow18]

met vba in een loopje iedere kolom aflopen

 

[AHulpje]

Zoiets:

Sub DoelZoeken()
    Range("D21").GoalSeek Goal:=Range("M8"), ChangingCell:=Range("D10")
    Range("E21").GoalSeek Goal:=Range("M8"), ChangingCell:=Range("E10")
    Range("F21").GoalSeek Goal:=Range("M8"), ChangingCell:=Range("F10")
    Range("G21").GoalSeek Goal:=Range("M8"), ChangingCell:=Range("G10")
    Range("H21").GoalSeek Goal:=Range("M8"), ChangingCell:=Range("H10")
End Sub

 

[barendrecht82]

Klasse dit werkt bedankt