nachdem mir in diesem Forum so schnell und super gut weitergeholfen wurde, würde ich gerne noch ein Frage stellen. Hoffe auch hier könnt ihr mir helfen :-)
Folgende Herausforderung:
Die Tabelle ist so aufgebaut:
x-Werte 2.53; 3.00; 4.00; 5.00; 5.06; 6.00; 7.00; 7.59
y-Werte 7.91 ; ? ; ? ; ? ; 9.88; ? ; ? ; 11.86
Steigung m bestimmen um y-Wert zu berechen
Faktor b bestimmen um y-Wert zu berechen
Ziel ist es, die Steigung für x=3; x=4;x=5 etc zu berechnen, oder besser für alle x-Werte deren y-Werte=? sind. Annahme für die Steigungsberechnung ist hierbei ein linearer Zusammenhang (f(x)=m*x+b).
das ist der Code den ich bisher geschrieben habe. Er prüft ob eine bestimmt Zelle (y-Wert) leer ist und wenn ja, in die entsprechende Zelle in Zeile "Steigung m" die Formel für die Steigung reinzuschreiben.
Sub Wert_berechnen_m ()
Dim iCol As Integer
iCol = 3
Cells(12, 3).Activate
Do
If IsEmpty(ActiveSheet.Cells(ActiveCell.Row, iCol)) Then
ActiveSheet.Cells(ActiveCell.Row + 1, iCol).FormulaR1C1 = "=(R[-1]C[1]-R[-1]C[-1])/( _
R[-2]C[1]-R[-2]C[-1])"
End If
iCol = iCol + 1
Loop While Not iCol = 50
End Sub
Problem hierbei ist, dass diese Formel nur funktioniert, wenn nur 1 y-Wert "fehlt", da die Formel nicht variabel ist!!! Formel: m = yWert2 - yWert1 / xWert2 - xWert1
Ich möchte die Formel gerne so variabel machen, dass sie sich als y-Wert immer die Werte nimmt, wo ein Wert drinsteht.
Bsp.:
bisher rechnet er für x=3 --> m= ? - 7.91 / 4-2.53
er soll aber rechnen für x=3 -->m= 9.88 - 7.91 / 5.06 - 2.53
versteht ihr mein Anliegen? Freue mich auf Inputs von euch und danke allen Helfern vorab!!
Gruss, Silva