|
Super und danke für die Antwort,
den Code in "DieseArbeitsmappe" habe ich angepasst, nun funktioniert es.
Wenn ich den Code für "activate" und "calculate" in den Tabellenblättern allerdings so schreibe:
Private Sub Worksheet_activate()
' Im Tabellenblatt wurde eine Berechnung durchgeführt
Dim i As Double, zeile As Double
zeile = 0
' Übereinstimmung wird geprüft (hat sich was in den M-Zellen geändert?)
For i = 0 To UBound(arrG)
zeile = i + 1
' Wenn gespeicherter Wert ungleich aktueller Wert in M, dann ...
If arrG(i) <> Sh.Cells(zeile, 13) Then
' ...: wenn Zelle J = alter Wert M, dann
If Sh.Cells(zeile, 10) = arrG(i) Then
' Wertzuweisung J-Zelle und neuer Wert, ...
arrG(i) = Sh.Cells(zeile, 13)
Sh.Cells(zeile, 10) = Sh.Cells(zeile, 13)
Else
' ...sonst nur M-Zelle in Array
arrG(i) = Sh.Cells(zeile, 13)
End If
End If
Next
End Sub
entsteht ein Fehler. Habe ich etwas Falsch verstanden.
Vielen vielen Dank für die Hilfe.
|