Sub Schaltfläche2_Klicken()
Dim z, s As Integer
Dim xi, psi, pab64d, w As Double
Dim w_im_punkt As Double
xi = Range("G68").Value
psi = Range("H68").Value
pab64d = Range("C45").Value
w_im_punkt = 0
For s = 1 To 9
For z = 1 To 9
w_im_punkt = w_im_punkt + Cells(s, z) * xi ^ (s - 1) * psi ^ (z - 1)
Next
Next
w_im_punkt = w_im_punkt * pab64d
Range("i70") = w
End Sub
THX, Klaus
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Range
If Not Intersect(Target, Range("B50:B60")) Is Nothing Then
For Each B In Intersect(Target, Range("B50:B60"))
If B > 0 And B.Offset(0, -1) > 0 Then
Application.EnableEvents = False
Call MeinMakro(B, B.Offset(0, -1).Value)
Application.EnableEvents = True
End If
Next
End If
End Sub
Sub MeinMakro(R As Range, A As Double)
R.Offset(0, 1) = A - R.Value
End Sub
Gruß Gerd
Sub Schaltfläche2_Klicken()
Dim z, s As Integer
Dim xi, psi, pab64d, w As Double
' Dim w_im_punkt As Double
xi = Range("G68").Value
psi = Range("H68").Value
pab64d = Range("C45").Value
w = 0
For s = 1 To 9
For z = 1 To 9
w = w + Cells(s, z) * xi ^ (s - 1) * psi ^ (z - 1)
Next
Next
w = w * pab64d
Range("i70") = w
End Sub
sollte sowohl über je ein Einzel-xi und -psi, aber auch mit lfd. xi und psi ansprechbar sein. Melde mich wieder. Gruß Klaus
Function Multi(x, y)
Dim erg
erg = x * y
Multi = erg
End Function
In der Zelle C50 steht dann
=Multi(A50;B50)
Gruß Daniel