Schnelligkeit einer Funktion / Herbers CD
13.05.2005 23:00:06
Erich
habe mir von Herbers CD diese Funktion geholt:
Function sSVERWEIS( _
varA As Variant, _
varB As Variant, _
rng As Range)
Dim rngAct As Range
For Each rngAct In rng.Columns(1).Cells
If rngAct.Value = varA Then
If rngAct.Offset(0, 1).Value = varB Then
sSVERWEIS = rngAct.Offset(0, 2).Value
Exit Function
End If
End If
Next rngAct
End Function
Geht soweit einwandfrei. Allerdings habe ich jetzt das Problem, dass die Funktion
in einer Spalte mit knapp 4.000 Zeilen steht.
Und jetzt dauert der Rechenvorgang extrem lang. Kann man die Schnelligkeit
da verbessern? Oder ist bei derartigen selbergestrickten Funktionen
generell dieses Problem vorhanden?
Besten Dank für eine Info!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com