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
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
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sascher“ ()