VBA: Excel stürzt am Ende ab Wenn

Question

Ich weiß, dass diese Funktion richtig funktioniert, aber wenn ich versuche, in meiner Tabelle auszufüllen, verursacht Excel fast sofort zum Absturz. Wenn ich in den Debug-Modus gehe, sagt es mir, dass es am Ende ein If-Problem gibt. Ich glaube, das ist richtig, da das Ende If die vorherige If-Anweisung beendet.

Function MYVLOOKUP(pValue As String, pWorkRng As Range, pIndex As Long) 

'Update 20150310 
Dim rng As Range 
Dim xResult As String 

xResult = "" 
For Each rng In pWorkRng 
    If rng = pValue Then 
     xResult = xResult & " " & rng.Offset(0, pIndex - 1) 
    End If '<-- crashes here 
Next 
MYVLOOKUP = xResult 
End Function 

Answer 1

läßt Grenze die Schleife nur die erste Spalte und den verwendeten Bereich auf diesem Blatt:

Function MYVLOOKUP(pValue As String, pWorkRng As Range, pIndex As Long) 

'Update 20150310 
Dim rng As Range 
Dim xResult As String 
'resets the range to only the first column and the used range. 
'this will limit the cycling to the smallest possible range. 
Set pWorkRng = Intersect(pWorkRng.Columns(1), pWorkRng.Parent.UsedRange) 

xResult = "" 
For Each rng In pWorkRng 
    If rng = pValue Then 
     xResult = xResult & " " & rng.Offset(0, pIndex - 1) 
    End If 
Next 
MYVLOOKUP = xResult 
End Function