Alternative zu SVerweis?
04.12.2007 10:35:00
kuechenberg
ich habe hier eine kleine aber, wie ich finde, sehr nützliche Alternative zum SVerweis gebastelt.
Es ist eine benutzerdefinierte Funktion, die genau wie SVerweis nach einem Suchbegriff sucht und den Eintrag der ein einer anderen Spalte steht zurückgeben kann.
Anders ist hier das diese Funktion auch Werte zurückgeben kann die links von der Suchspalte stehen, und Ihr braucht als Suchmatrix lediglich die Spalte zu markieren in der gesucht werden soll.
Außerdem könnt Ihr die Err-Meldung selbst bestimmen, bei SVerweis lautet sie immer #NV.
Bitte testet mal diese Funktion. Ich konnte sie bisher mit Erfolg einsetzen, wenn SVerweis (aus welchen Gründen auch immer) versagt hat.
Es gab allerdings auch Fälle wo meine Funktion versagte und SVerweis funktionierte. Mir ist noch nicht klar warum.
Teilt mir bitte Eure Erfahrungen mit. Oder vielleicht habt Ihr bessere Lösungen.
Ich freue mich auf Eurer Feedback :-)
Function LookUpSpecial(strSearch As String, rngMatrix As Range, Index As Integer, _
Optional ErrMsg As String = "") As String
Dim c As Range
Set c = rngMatrix.Find(strSearch, , xlValues, xlPart)
If c Is Nothing Then
LookUpSpecial = ErrMsg
Else
LookUpSpecial = c.Offset(0, Index)
End If
End Function
Ein Paar Worte zur "Bedienung". "strSearch" entspricht dem Suchkriterium, rngMatrix = Matrix, Index ist klar und "ErrMsg" hier könnt ihr die Meldung reinschreiben, welche erscheinen soll, wenn die Funktion nichts gefunden hat.
Viel Spaß damit
Gruß Walter
Anzeige