Sub
Workbooks.Open Filename:=
"Tapete1"
x1= Worksheets(
"Blatt1"
).Range(
"J1"
).Value
x2= Worksheets(
"Blatt1"
).Range(
"J3"
).Value
x3 = Worksheets(
"Blatt1"
).Range(
"J20"
).Value
x4= Worksheets(
"Blatt1"
).Range(
"K1"
).Value
x5= Worksheets(
"Blatt1"
).Range(
"K3"
).Value
x6 = Worksheets(
"Blatt1"
).Range(
"K20"
).Value
x7= Worksheets(
"Blatt1"
).Range(
"m1"
).Value
x8= Worksheets(
"Blatt1"
).Range(
"m3"
).Value
x9 = Worksheets(
"Blatt1"
).Range(
"m20"
).Value
x10= Worksheets(
"Blatt1"
).Range(
"af1"
).Value
x11= Worksheets(
"Blatt1"
).Range(
"af3"
).Value
x12 = Worksheets(
"Blatt1"
).Range(
"af20"
).Value
Windows(
"Tapete2"
).Activate
Worksheets(
"Blatt2"
).Range(
"I10"
).Value = x1 / 1000
Worksheets(
"Blatt2"
).Range(
"I11"
).Value = x2 / 1000
Worksheets(
"Blatt2"
).Range(
"I13"
).Value = x3 / 1000
Worksheets(
"Blatt2"
).Range(
"L10"
).Value = x4 / 1000
Worksheets(
"Blatt2"
).Range(
"L11"
).Value = x5 / 1000
Worksheets(
"Blatt2"
).Range(
"L13"
).Value = x6 / 1000
Worksheets(
"Blatt2"
).Range(
"P10"
).Value = x7 / 1000
Worksheets(
"Blatt2"
).Range(
"P11"
).Value = x8 / 1000
Worksheets(
"Blatt2"
).Range(
"P13"
).Value = x9 / 1000
Worksheets(
"Blatt2"
).Range(
"T10"
).Value = x10 / 1000
Worksheets(
"Blatt2"
).Range(
"T11"
).Value = x11 / 1000
Worksheets(
"Blatt2"
).Range(
"T13"
).Value = x12 / 1000
Windows(
"Tapete1"
).Close
End
Sub