XVERWEIS konvertieren für Excel 2013

learner1234 

Kopieren Sie diese benutzerdefinierte Funktion in ein Modul im Visual Basic-Editor:

Function ReverseLookup(What As String, LookupRange As Range, ReturnRange As Range) As Variant
    Dim i As Long
    For i = LookupRange.Count To 1 Step -1
        If LCase(LookupRange(i)) Like LCase(What) Then
            ReverseLookup = ReturnRange(i)
            Exit Function
        End If
    Next i
    ReverseLookup = "-"
End Function

Geben Sie die folgende Formel in A2 ein:

=ReverseLookup(A1;B2:D2;B1:D1)

Speichern Sie die Arbeitsmappe als makrofähige Arbeitsmappe (*.xlsm).