Sub
Makro1()
Range(
"D3"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-2]C[-3]"
Range(
"D4"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-3]C[-2]"
Range(
"D5"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-4]C[-1]"
Range(
"D6"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-5]C"
Range(
"G3"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-2]C[-2]"
Range(
"G4"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-3]C[-1]"
Range(
"G6"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-5]C"
Range(
"G7"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-6]C[1]"
Range(
"C11"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-10]C[6]"
Range(
"C12"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-11]C[7]"
Range(
"C13"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-12]C[8]"
Range(
"C14"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-13]C[9]"
Range(
"C15"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-14]C[10]"
Range(
"C16"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-15]C[11]"
Range(
"C17"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-16]C[12]"
Range(
"C18"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-17]C[13]"
Range(
"C19"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-18]C[14]"
Range(
"C20"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-19]C[15]"
Range(
"E11"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-10]C[14]"
Range(
"E12"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-11]C[15]"
Range(
"E13"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-12]C[16]"
Range(
"E14"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-13]C[17]"
Range(
"E15"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-14]C[18]"
Range(
"E16"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-15]C[19]"
Range(
"E17"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-16]C[20]"
Range(
"E18"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-17]C[21]"
Range(
"E19"
).
Select
ActiveCell.FormulaR1C1 =
"=Tabelle1!R[-18]C[22]"
Range(
"E20"
).
Select
End
Sub