Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$G$68" Or Target.Address = "$H$68" Then
MsgBox "Sie haben gerade Zelle G68 oder H68 verändert!"
End If
End Sub
' Geht bei G66 und H66, die Mess löpt schon bei Kick, das Makro reagiert aber nicht. Die korrespondierenden G68 und H68 berechnet es auch nicht neu. ' Das Makro "Call Schaltfläch2_Klicken" sollte nun statt der msgbox - dies nur als Test - ausgeführt werden und dessen Ergebnis nach I70 gesendet werden
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") = Format(w, "0.000")
End Sub
What to do ? Danke Klaus