Får "Error 2015" ved Evaluate("VLookup...
Here goes: mit første spørgsmål på eksperten...Jeg forsøger at bruge VBA til at køre et LOPSLAG på 500.000 rækker.
I arket; "Data", haves data i kolonne A til O. I kolonne P skal Lopslaget indsættes. Lopslaget slår op i kolonne E, og benytter tabelmatricen; "Sagskort!A5:C10000" (Sagskort er navnet på et andet ark).
Sub OpdaterSagsnavn()
Dim rngStart As Range, lngRækker As Long, i As Long, varLS
Dim rngSagskort As Range
On Error GoTo Fejl
Set rngStart = Data.Range("A11")
Set rngSagskort = Sagskort.Range("A5:C10000")
lngRækker = rngStart.CurrentRegion.Rows.Count
For i = 0 To lngRækker
varLS = Evaluate("VLookup(rngStart.Offset(i,4).Value,rngSagskort,3,true")
rngStart.Offset(i, 15).Value = varLS
Next i
Exit Sub
Fejl:
Fejlhåndtering 'En sub for sig selv
End Sub
Dim rngStart As Range, lngRækker As Long, i As Long, varLS
Dim rngSagskort As Range
On Error GoTo Fejl
Set rngStart = Data.Range("A11")
Set rngSagskort = Sagskort.Range("A5:C10000")
lngRækker = rngStart.CurrentRegion.Rows.Count
For i = 0 To lngRækker
varLS = Evaluate("VLookup(rngStart.Offset(i,4).Value,rngSagskort,3,true")
rngStart.Offset(i, 15).Value = varLS
Next i
Exit Sub
Fejl:
Fejlhåndtering 'En sub for sig selv
End Sub
Problemet er at Evaluate returnerer; "Error 2015". Jeg har læst mig frem til at det kan have med at gøre at Evaluate returnerer en string på over 255 characters... Det er bare ikke tilfældet: ingen celler i tabelmatricen indeholder over 255 karakterer (nogle få indeholder dog 0 karakterer/er tomme). Så jeg undrer mig over hvorfor jeg får denne fejlmeddelelse (??)
BONUSSPØRGSMÅL:
Vil "Application.WorksheetFunction.VLookup(..." være hurtigere at køre end Evaluate-metoden? (Jeg kan nemlig få førstnævnte til at fungere).
På forhånd stor tak :)
