Hier der Code, den ich bislang (dank an hary) habe.
'Code in den Ccode von: Dienstpläne
Private Sub Worksheet_Change(ByVal Target As Range)
'bei änderung von A1
If Target.Row >= 1 Then
If Target.Column >= 2 Then
Application.EnableEvents = False
'Tabellenname von "Blatt1" und "Blatt2" anpassen!!!!!!!!!!!!!!
Worksheets("Tabelle1").Range("C3:ND14").Value = Worksheets("Tabelle2").Range("C3:ND14"). _
Value
Application.EnableEvents = True
End If
End If
End Sub
Danke vorab, René