Ja, da hast du Recht. Vielen Dank für deine schnelle Rückmeldung, ich hoffe du kannst damit was anfangen ;)
Sub SVerweis_einfach()
'
' SVerweis_einfach Makro
' SVerweis auf einmal
'
' Tastenkombination: Strg+Umschalt+S
'
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
|