17.05.2018, 14:00
Hallo zusammen,
ich bin leider noch ein VBA Neuling und versuche mich mit der Vlookup Funktion mit Bezug auf eine externe Datei. Ich bekomme bei der Ausfuehrung der Zeile "FormulaR1C1..." immer eine Fehlermeldung (Run-time error '9': Subscript out of range).
Der Fehler muss, so vermute ich, irgendwo im Bereich des externen Workbooks liegen. Was koennte ich da uebersehen haben?
Ich habe in der Suchfunktion leider nichts finden koennen, was mir weiterhilft. Sorry, falls ich da doch etwas uebersehen haben sollte.
Viele Gruesse
Buffetfraese
Sub Copy_yyyy_PL()
Dim col As Long
Dim row As Long
col = Worksheets("repperiod").Range("b1").Value
row = Application.WorksheetFunction.Match _
("PL: Cost of Sales Method before special items", Range("A1:A5555"), 0) + 1
Cells(row, col).Activate
FormulaR1C1 = Application.WorksheetFunction.VLookup(Cells(row, 1), Workbooks("S:\xxx\Data Master\Input\B0.xlsx").Worksheets("P&L (CostOfSales) OE").Range("B7:k28"), 10, False)
End Sub
ich bin leider noch ein VBA Neuling und versuche mich mit der Vlookup Funktion mit Bezug auf eine externe Datei. Ich bekomme bei der Ausfuehrung der Zeile "FormulaR1C1..." immer eine Fehlermeldung (Run-time error '9': Subscript out of range).
Der Fehler muss, so vermute ich, irgendwo im Bereich des externen Workbooks liegen. Was koennte ich da uebersehen haben?
Ich habe in der Suchfunktion leider nichts finden koennen, was mir weiterhilft. Sorry, falls ich da doch etwas uebersehen haben sollte.
Viele Gruesse
Buffetfraese
Sub Copy_yyyy_PL()
Dim col As Long
Dim row As Long
col = Worksheets("repperiod").Range("b1").Value
row = Application.WorksheetFunction.Match _
("PL: Cost of Sales Method before special items", Range("A1:A5555"), 0) + 1
Cells(row, col).Activate
FormulaR1C1 = Application.WorksheetFunction.VLookup(Cells(row, 1), Workbooks("S:\xxx\Data Master\Input\B0.xlsx").Worksheets("P&L (CostOfSales) OE").Range("B7:k28"), 10, False)
End Sub
