Ändern Zellinhalt führt Makro aus

Guten Abend Herbers, die Inhalte der Zellen (G66 und H66) schreiben nach Umrechnung Parameter nach G68 und H68. Jede Veränderung der Werte G68 oder H68 (automatisch neu berechnen ist an) sollte nun via Makro dessen Ergebnis nach I70 schicken. Aus MS-Hilfen :


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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi ralf_b, oft ist die Kommunikation per EMail schwierig; mein Fehler, es nicht gut genug zu beschreiben ! Die Schaltfl2 ist eine Notlösung, nur aus meinem Unverständnis entstanden. Diesen Button möchte ich komplett streichen. Die "wirklichen" x- und y-Koordinaten tippe per Hand in G66 und/oder H66 ein. Nur, um zu sehen, daß Excel's autom. Neuberechen das "verstanden hat", sehe gibt's so in G68 und/oder H68 nun bei jeder Änderung. Das ist nicht wirlich notwendig. Das "wirkliche x" xi=G66/$A$27 (das neue, wahre x, als xi verkleidet) und psi=H66/$A$31 (y, nun psi) kann ich mit dem Schaltfläche2-Button, sogar als "Teiler, also Divisor" aus G66/$A$27 und H66/$A$31 holen. Das Ergebnis sollte nun in Sei doch bitte so nett, mir zu sagen, wo ich den Calculate-Event einbauen muß und, wo ich in diesem ein Schreiben des Erbebnissed in I70 erzwinge. Das tut's abber auch nicht immer typengerecht : oft meint er, amerik. Punkt, statt deutschem Komma benutzen zu müssen ... Danke für Deine Mühen, Nice WE, Klaus

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$66" Or Target.Address = "$H$66" Then If Range("G66") "" And Range("H66") "" Then 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 If End If End Sub

Beliebteste Forumthreads (12 Monate)

Ändern Zellinhalt führt Makro aus

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread