Farbe übernehmen

Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99").ClearContents
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
End Sub