Dim
wksQuelle
As
Excel.Worksheet
Dim
wksZiel
As
Excel.Worksheet
Set
wksQuelle = ThisWorkbook.Worksheets(
"Tabelle1"
)
Set
wksZiel = ThisWorkbook.Worksheets(
"Tabelle3"
)
wksQuelle.Range(
"A6:E200"
).Copy Destination:=wksZiel.Range(
"A1"
)
wksQuelle.Range(
"A6:E200"
).Copy
wksZiel.Range(
"A1"
).PasteSpecial xlPasteValues
Application.CutCopyMode =
False
With
wksQuelle.Range(
"A6:E200"
)
wksZiel.Range(
"A1"
).Resize(.Rows.Count, .Columns.Count).Value = .Value
End
With