Hallo noch einmal, der Code für die Tabellen sieht nun wie folgt aus:

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) <> Cells(zeile, 13) Then
        ' ...: wenn Zelle J = alter Wert M, dann
        If Cells(zeile, 10) = arrG(i) Then
            ' Wertzuweisung J-Zelle und neuer Wert, ...
            arrG(i) = Cells(zeile, 13)
            Cells(zeile, 10) = Cells(zeile, 13)
        Else
            ' ...sonst nur M-Zelle in Array
            arrG(i) = Cells(zeile, 13)
        End If
    End If
Next
End Sub
  



Private Sub Worksheet_Calculate()
' 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) <> Cells(zeile, 13) Then
        ' ...: wenn Zelle J = alter Wert M, dann
        If Cells(zeile, 10) = arrG(i) Then
            ' Wertzuweisung J-Zelle und neuer Wert, ...
            arrG(i) = Cells(zeile, 13)
            Cells(zeile, 10) = Cells(zeile, 13)
        Else
            ' ...sonst nur M-Zelle in Array
            arrG(i) = Cells(zeile, 13)
        End If
    End If
Next
End Sub
  
Private Sub Worksheet_Change(ByVal Target As Range)
' Weiterhin für manuelle Änderung in J-Zellen
    Dim rC As Range
    Application.EnableEvents = False
    If Not Intersect(Target, Range("M1:M1000")) Is Nothing Then
        For Each rC In Target
            If rC.Column = 13 Then
                If rC.Offset(0, -3) = "" Then rC.Offset(0, -3) = rC
            End If
        Next rC
    End If
    If Not Intersect(Target, Range("J1:J1000")) Is Nothing Then
        For Each rC In Target
            If rC.Column = 10 Then
                If rC = "" Then rC = rC.Offset(0, 3)
            End If
        Next rC
    End If
    Application.EnableEvents = True
End Sub

Leider tritt folgendes Problem auf:

Ich wende den Code auf mehrere Tabelleblättern an.

Wenn ich nun einen automatisch eingetragenen Wert aus Spalte J:J von einem Tabellen Blatt in ein anderes übertragen möchte (einfach Verknüpfung) funktioniert der Code in dem Tabellenblatt nicht mehr aus dem ich den Wert übertrage. Zur Veranschaulichung habe ich eine einfache Datei erstellt, weiß allerdings nicht wie ich sie hier anhängen kann. Ggf. könnte ich Sie per Mail zusenden.

Kann mir jemand bei dem Problem helfen? 
Ich würde mich sehr freuen. 
Besten Gruß 
Mario