VlookUp per Makro
02.12.2016 10:08:31
Hopeless
mal wieder bin ich an meine Grenzen gestoßen. Ich möchte gerne per Makro mehrere Vlookup-Funktionen einfügen. Einzelne Vlookup-Funktionen kann ich einfügen, dies funktioniert auch sehr gut. Jedoch möchte ich nicht für alle Zellen einen eigenen Code schreiben und dies per Autofill ausfüllen. Aber leider reichen meine VBA-Kenntnisse nicht aus.
Habe es mit den folgenden Code-probiert.
Private Sub CommandButton1_Click()
Dim Letztezelle As Long
Sheets("Sheet2").Range("B2").Select
Letztezelle = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],Sheet1!R1C1:R7C4,SUMPRODUCT((Sheet1!R1C1:R7C4=Sheet2!R1C2)*COLUMN(Sheet1!R1C1: _
R7C4)),FALSE)"
Selection.AutoFill Destination:=Range("B2:B&Letztezelle&")
End Sub
Jedoch wird mir hier immer ein Erro 1004 herausgeworfen.
Bin auch gerne für andere Lösungsvorschläge offen und bedanke mich schonmal für euere Hilfe.
Mit freundlichen Grüßen
Hopeless