Windows(
"Datei name"
).Activate
Sheets(
"Kalk-Cl5"
).
Select
Cells.
Select
Selection.copy
Windows(
"EH 5.1.xlsm"
).Activate
Sheets(
"Cl 5"
).
Select
Range(
"A1"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Windows(
"Datei name"
).Activate
Sheets(
"Kalk-Cl8"
).
Select
Cells.
Select
Selection.copy
Windows(
"EH 5.1.xlsm"
).Activate
Sheets(
"Cl 8"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Windows(
"Datei name"
).Activate
Sheets(
"Kalk-Cl10"
).
Select
Cells.
Select
Selection.copy
Windows(
"EH 5.1.xlsm"
).Activate
Sheets(
"Cl 10"
).
Select
Range(
"A1"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False