Sub
SVerweis_einfach()
Range(
"M1"
).
Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-9],[AIF_21.09.2017.xlsx]AIF_21.09.2017!C4:C13,10,0)"
Selection.AutoFill Destination:=Range(
"M1:M98"
)
Range(
"M1:M98"
).
Select
Range(
"N1"
).
Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-10],[AIF_21.09.2017.xlsx]AIF_21.09.2017!C4:C14,11,0)"
Range(
"N1"
).
Select
Selection.AutoFill Destination:=Range(
"N1:N98"
)
Range(
"N1:N98"
).
Select
Range(
"O1"
).
Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-11],[AIF_21.09.2017.xlsx]AIF_21.09.2017!C4:C15,12,0)"
Range(
"O1"
).
Select
Selection.AutoFill Destination:=Range(
"O1:O98"
)
Range(
"O1:O98"
).
Select
Range(
"P1"
).
Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-12],[AIF_21.09.2017.xlsx]AIF_21.09.2017!C4:C16,13,0)"
Selection.AutoFill Destination:=Range(
"P1:P98"
)
Range(
"P1:P98"
).
Select
End
Sub