Hallo und guten Abend.
Ich möchte einen Code so verändern, dass ein Wert nicht nur von Tabelle 1 auf Tabelle 3 sondern auch auf Tabelle 2, in diesem Fall an gleiche Stelle, überragen wird.
Leider schaffe ich es nach mehreren verschiedenen Versuchen leider nicht.
Wer kann helfen?

Sub Buchen()
Sheets("Tabelle1").Select
Range("e7:f7").Select
Selection.Copy
Sheets("Tabelle3").Select
If Range("F10") > "" Then
Range("F9").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Else
Range("F10").Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Tabelle1").Select
Range("F9").Select
Application.CutCopyMode = False
Range("e7:f7").Select
Selection.ClearContents
Sheets("Tabelle1").Select
Range("B2").Select

End Sub

Bis dann,
Klaus F.