Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle2").Range("a2").Value = Range("a2").Value
End Sub
Dabei wird natürlich bei jedem Aufruf der Wert in Tabelle2 überschrieben, aber Konkreteres geben Deine Angaben nicht her.
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle2").Range("a2").Value = Range("a2").Value
End Sub
Dabei wird natürlich bei jedem Aufruf der Wert in Tabelle2 überschrieben, aber Konkreteres geben Deine Angaben nicht her.