|
Hej, vielleicht kann einer von euch helfen. Ich bekomme bei den folgenden Code einen Laufzeitfehler 9, wobei der Index außerhalb des glütigen Bereichs liegt:
For x = 2 To IntLastAktiv
Workbooks("Workliste Einzeiler").Sheets("data").Cells(x, 7) = Application.WorksheetFunction.VLookup(wbAktiv.Sheets("Data").Cells(x, 3).Value, Workbooks("SA021.xlsm").Sheets(2).Range("C:Q"), 15, False)
Next x
Beide Workbooks sind definitiv geöffnet, entsprechende Tabellen und Bereiche existieren ebenfalls.
Workbooks("Workliste Einzeiler") ist das Selbe wie wbAktiv, hier nur unterschiedlich angesprochen zu Testzwecken.
|