29.10.2020, 11:22
Guten Morgen allerseits,
ich habe folgendes Problem: per VBA habe ich es geschafft, eine Vielzahl von Zellen einer Spalte mit Formeln zu bestücken (Einfach Division zweier Zellen). Allerdings habe ich nun weitergebaut und möchte, dass nach der letzten Zeile wieder oben begonnen werden soll und das ganze 6 Spalten weiter. Anbei mein Code. Das einzige Problem was ich jetzt habe ist, dass mit jedem Spaltensprung auch die Formeln auf Zellen mit dem gleichen Abstandverhältnis zugreifen. Allerdings möchte ich, dass der eine Wert immer fix aus Spalte F genommen wird für die Berechnung. Sprich RC[-1] ist genau richtig, allerdings soll RC[-8] konstant bleiben und sich nicht mit dem Spaltensprung verschieben. Ich habe schon versucht, -8 durch einen Zellbezug mit .Cells festzulegen, allerdings Fehlermeldung. Kann mir hier jemand behilflich sein? Besten Dank :)
ich habe folgendes Problem: per VBA habe ich es geschafft, eine Vielzahl von Zellen einer Spalte mit Formeln zu bestücken (Einfach Division zweier Zellen). Allerdings habe ich nun weitergebaut und möchte, dass nach der letzten Zeile wieder oben begonnen werden soll und das ganze 6 Spalten weiter. Anbei mein Code. Das einzige Problem was ich jetzt habe ist, dass mit jedem Spaltensprung auch die Formeln auf Zellen mit dem gleichen Abstandverhältnis zugreifen. Allerdings möchte ich, dass der eine Wert immer fix aus Spalte F genommen wird für die Berechnung. Sprich RC[-1] ist genau richtig, allerdings soll RC[-8] konstant bleiben und sich nicht mit dem Spaltensprung verschieben. Ich habe schon versucht, -8 durch einen Zellbezug mit .Cells festzulegen, allerdings Fehlermeldung. Kann mir hier jemand behilflich sein? Besten Dank :)
Code:
'PAL% für die Tourenabschnitte
y = 19
For y = y To 194
For z = 2 To Berechnunglastrow
Cells(z, y).FormulaR1C1 = "=RC[-1]/RC[-8]"
Next z
y = y + 6
Next y