Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDest As Range, rngSrc As Range
Dim rngDestArea As Range, rngSrcArea As Range
Dim iAreas As Integer
Dim iCol As Integer, iRow As Integer
Set rngDestArea = Application.ThisWorkbook.Worksheets("Tabelle2").Range("A:A,F:F")
Set rngSrcArea = Target.Worksheet.Range("A:A,B:B")
For iAreas = 1 To rngSrcArea.Areas.Count
Set rngSrc = rngSrcArea.Areas.Item(iAreas)
Set rngDest = rngDestArea.Areas.Item(iAreas)
If Not Intersect(Target, rngSrc) Is Nothing Then
iCol = Target.Column - rngSrc.Column
iRow = Target.Row - rngSrc.Row
rngDest.Cells(iRow + 1, iCol + 1).FormulaR1C1 = Target.FormulaR1C1
End If
Next
End Sub