Forum Discussion

learner1234's avatar
learner1234
Copper Contributor
May 02, 2021
Solved

XVERWEIS konvertieren für Excel 2013

BS?A1906.05.202013.05.202020.05.2020
20.05.2020BS1A19 BS1A19

B1=XVERWEIS(A1;B2:D2;B1:D1;"-";2;-1) = 20.05.2020

 

Hallo, ich möchte o.g. XVERWEIS für Excel 2013 konvertieren
INDEX VERGLEICH liefert als Ergebnis "06.05.2020", ich möchte jedoch "20.05.2020" ausgeben lassen.

Vielleicht könnte mir jemand helfen.
Vielen Dank!

excel
Formulas and Functions

10 Replies

  • learner1234's avatar
    learner1234
    Copper Contributor
    May 02, 2021
    Suchbereich und Rückgabebereich sind immer Zeilen. Der Rückgabebereich ist immer die Kopfzeile der Tabelle
    • HansVogelaar's avatar
      HansVogelaar
      MVP
      May 02, 2021

      learner1234 

      Es wäre besser, Riny's Formel zu verwenden!

       

      =INDEX($A$1:$D$1;1;MAX((B2:D2=WVERWEIS($A$1;B2:D2;1;FALSCH))*SPALTE(B2:D2)))

      • learner1234's avatar
        learner1234
        Copper Contributor
        May 02, 2021
        Hallo Herr Vogelaar,
        Hallo Herr van Eekelen,
        vielen Dank für Ihre Hilfe! Diese Formel funktioniert nur leider nicht in einer Tabelle.
  • Riny_van_Eekelen's avatar
    Riny_van_Eekelen
    Platinum Contributor
    May 02, 2021

    learner1234 Try this one:

    =INDEX(A1:D1,1,MAX((B2:D2=HLOOKUP(A1,B2:D2,1,FALSE))*COLUMN(B2:D2)))

=INDEX(A1:D1;1;MAX((B2:D2=WVERWEIS(A1;B2:D2;1;FALSCH))*SPALTE(B2:D2)))

    Entry needs to be confirmed with Ctrl-Shift-Enter (CSE) which will put curly brackets around the formula. Tested it on Excel2013 and it worked. File attached for your reference. The formula should come across in German automatically.

     

  • HansVogelaar's avatar
    HansVogelaar
    MVP
    May 02, 2021

    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).

    • learner1234's avatar
      learner1234
      Copper Contributor
      May 02, 2021
      Hallo Her Vogelaar, vielen Dank, die Lösung funktioniert! Die Performance ist jedoch eingeschränkt, da die Tabelle relativ groß ist. Darf ich Sie fragen, ob es auch eine Lösung gibt, die weniger Rechenzeit erfordert?

Resources