Und mal wieder der Neuling

Nun habe ich folgendes Problem: Ich verwende eine ganz einfache Formel um den Wert einer Zelle zu ermitteln. Diese Formel (Pythagoras) soll nun auch für andere Ziel-Zellen gelten, allerdings immer mit anderen Variablen, deren Geometrie allerdings immer gleich bleibt.
Soweit erkennt er auch die jeweilige Ziel-Zelle und setzt auch die Formel korrekt ein, jedoch als #NAME

hier mal der Code
Sub Distanzen()

Z = 6
m = 3
n = 4
o = 8
p = 9

For Z = 6 To 100

a = Cells(6, (m)).Value
b = Cells(6, (n)).Value
c = Cells(6, (o)).Value
d = Cells(6, (p)).Value

Cells(8, Z).Select
ActiveCell.Formula = "=WURZEL(((a)^2+(c)^2)+((b)^2+(d)^2))"

Z = Z + 4
m = m + 5
n = m + 5
o = o + 5
p = p + 5
Next


End Sub

Alternativ dazu habe ich zunächst folgendes gehabt:

Sub Distanzen2()

Z = 6
m = 3
n = 4
o = 8
p = 9

For Z = 6 To 100

Cells(8, Z).Select
ActiveCell.Formula = "=WURZEL(((Cells(6, (m)))^2 + (Cells(6, (o)))^2) + (((Cells(6, (n)))^2 + (Cells(6, (p)))^2))"

Z = Z + 4
m = m + 5
n = m + 5
o = o + 5
p = p + 5

Next


End Sub


Vielen Dank

Innerhalb VBA musst du die Formeln in englischer Schreibweise setzen.
WURZEL heißt vermutlich SQRT.

Am einfachsten geht es, wenn du den Macrorecorder startest und in Excel die richtige Formel einträgst.
Dann siehst du im aufgezeichneten Macro, wie die Formel in VBA lautet.

nochmals danke!

Es ist eine .formulaR1C1-Eigenschaft