Schleife mit Zielwertsuche
01.08.2003 15:14:26
Peter D.
ich möchte mittels eines Makros nacheinander in 20 nebeneinanderliegenden Zellen jeweils eine Zielwertsuche durchführen und habe dazu bislang im Makro 20x ´Range("B13").GoalSeek Goal:=10, ChangingCell:=Range("B16")´ usw. (für jede Zelle eine dieser Zeilen, nur die Zellbezüge ändern sich) stehen.
Eleganter und kürzer ist natürlich eine Schleife mit "For...Next", aber ich kriege in der Schleife die Zellbezüge, d.h. das Springen von Zelle B13 auf c13 usw. nicht hin. Kann mir jemand helfen?
Danke, Peter