relative Bezüge werden falsch berechnet
25.09.2008 12:47:41
Christoph
habe ein kleines Problem, ich habe ein Unterprogramm geschrieben, das in 3 Spaltenbereichen eine Art 'Master-Formel' auf die benötigte Anzahl von Zeilen erweitert. Diese enthält relative Bezüge.
In einem anderen Abschnitt des Programms funktioniert das wunderbar, wobei dort direkt unter der 'Master-Formel' angesetzt wird mit der Erweiterung und nicht erst in einem Abschnitt weiter unten. Wenn ich es von Hand mache (copy-->paste formula) funktioniert es auch, wenn es übers Makro läuft, erzeugt er zwar auch pseudo richtigie Formeln, aber er beginnt nicht in der entsprechenden Zeile, sondern kopiert die Master-Formel 1:1 und rechnet von dort aus fortlaufend weiter. (Sprich: Er sollte gleich z.B. mit Zeile 734 anfangen, siehe Formel unten, beginnt aber mit 4, in welcher die Ausgangsformel stand)
Im Folgenden findet ihr den Abschnitt aus meinem Code sowie ein Beispiel einer solchen Masterformel, wobei dort, glaube ich der Fehler nicht liegt, wie gesagt manuell funktioniert es ja einwandfrei.
Wäre Euch sehr dankbar für Unterstützung, komme einfach nicht auf die Lösung.
Sub extend_formula_W_3()
Set W_3 = Worksheets("3_calculate")
extend_variable = "G" & implement_row & ":I" & implement_row + needed_rows - 1
W_3.range(extend_variable) = W_3.range("G4:I4").Formula
extend_variable = "K" & implement_row & ":M" & implement_row + needed_rows - 1
W_3.range(extend_variable) = W_3.range("K4:M4").Formula
extend_variable = "AA" & implement_row & ":AC" & implement_row + needed_rows - 1
W_3.range(extend_variable) = W_3.range("AA4:AC4").Formula
End Sub
FORMELBEISPIEL:
=WENN(REST(ZEILE(H4)-3;row_rythym)=0;SUMME(INDIREKT("G"&ZEILE(H4)-row_rythym+1) :INDIREKT("G"&ZEILE(H4)))-(ZEILE(H4)/100000);"")
Besten Dank
gruß christoph
PS: Wichtig wäre es die Formeln eben unten anzusetzen und nicht den kompletten Bereich neu zu füllen, (das denke ich geht ohne Schwierigkeiten), da das ganze früher oder später sehr groß wird und ich die Laufzeit nicht unnötig ausdehnen will.