Funktion WENN mit SUCHE und SVERWEIS kombinieren ?

Hallo allesamt,


ich habe ein Problem mit einer SUCHE Funktion. Ich habe einfach erzählt zwei Tabellenblätter.

In Tabellenblatt 1 gibt es eine erste Spalte A mit Namen, z.B. "Oracle-xyz" oder "test-SQL" oder "maxdbirgendwas".

Daneben eine Spalte B in die die Formel hineinsoll und einen Ausgabewert gibt.

In Tabellenblatt 2 gibt es ebenfalls zwei Spalten. In der ersten A steht "Oracle", "Sql", "Maxdb" und in der Spalte B daneben ein Code der passend in die Spalte B vom ersten Tabellenblatt hineinsoll. Falls er den Wert nicht findet soll er einen bestimmten anderen ausgeben z.B. A23.

Er soll also nach einem Teil des Namens suchen und wenn er den findet, den Wert der danebenliegenden Spalte ausgeben.

Ich habe jetzt schon mehrere möglichkeiten mit SVERWEIS, SUCHE, WENN und ODER durchgegangen, kam aber nie zu dem gewünschten Ergebnis. Manche Werte werden immer #WERT. Natürlich habe ich $ Zeichen gesetzt

Gruß, Shaggy

Function TEILVERWEIS(Suchkriterium As Variant, Matrix As Range, Spaltenindex As Integer) As Variant
Dim Ergebnis As Variant, Key As Variant
Dim Z As Integer, S As Integer
Dim i As Integer, found As Boolean
If Spaltenindex > Matrix.Columns.Count Then
    'Spaltennummer außerhalb des übergebenen Bereichs  
    TeilVerweis = 0 / 0
    Exit Function
End If
Application.Volatile
Ergebnis = ""  
found = False
Z = Matrix.Row
S = Matrix.Column
For i = Z To Z + Matrix.Rows.Count - 1
    Key = Matrix.Parent.Cells(i, S).Value
    If LCase(Left(Suchkriterium, Len(Key))) = LCase(Key) Then
        Ergebnis = Matrix.Parent.Cells(i, S + Spaltenindex - 1).Value
        found = True
        Exit For
    End If
Next
If found Then
    TeilVerweis = Ergebnis
Else
    TeilVerweis = 0 / 0
End If
End Function

=TEILVERWEIS(A3;Tabelle2!$A$2:$B$30;2)

Function TeilVerweis(Suchkriterium As Variant, Matrix As Range, Spaltenindex As Integer, Alternative As Range) As Variant
Dim Ergebnis As Variant, Key As Variant
Dim Z As Integer, S As Integer
Dim i As Integer, found As Boolean
If Spaltenindex > Matrix.Columns.Count Then
    'Spaltennummer außerhalb des übergebenen Bereichs  
    TeilVerweis = 0 / 0
    Exit Function
End If
Application.Volatile
Ergebnis = ""  
found = False
Z = Matrix.Row
S = Matrix.Column
For i = Z To Z + Matrix.Rows.Count - 1
    Key = Matrix.Parent.Cells(i, S).Value
    If InStr(LCase(Suchkriterium), LCase(Key)) Then
        Ergebnis = Matrix.Parent.Cells(i, S + Spaltenindex - 1).Value
        found = True
        Exit For
    End If
Next
If found Then
    TeilVerweis = Ergebnis
Else
    TeilVerweis = Alternative.Value
End If
End Function

=TEILVERWEIS(A3;Tabelle2!$A$2:$B$30;2;$A$23)