Zwei Tabellen vergleichen und Werte verschieben

[rldrake]

Hallo,
ich brauche bitte Hilfe bei einem Problem, das sicher schon zig-mal behandelt wurde. Man könnte es sicher googeln, aber ich bin schwerbehindert und kann deshalb nicht lange am PC sitzen.
 
Hier ist meine Fragestellung, am einfachsten kann ich es an einigen DAX-Werten erläutern:
Es gibt zwei identische Spalten mit Namen, die aber nicht in der gleichen Reihenfolge stehen. Zu jedem Namen gibt es einen Wert. Die beiden Namen-Spalten sollen miteinander verglichen werden. Wenn Gleichheit festgestellt wird, dann sollen beide Namen mit den zugehörigen Werten in einer Zeile stehen. Eine Beispieltabelle ist angehängt, worin das Ergebnis händisch erzeugt wurde.
 
Vielen Dank für eure Hilfe im Voraus.
Joachim

[steve1da]

Hola,

existiert H2 bis H5 schon, oder müssen die Namen auch noch ermittelt werden?

Gruß,
steve1da

[rldrake]

hallo steve1da,

die Namen in der H-Spalte sollen aus dem Vergleich erzeugt werden.

Danke für die schnelle Antwort.

[steve1da]

Hola,

in H2 als Matrixformel (mit Strg-Shift-Enter abschließen!):

Code:

=WENNFEHLER(INDEX($D$2:$D$11;KKLEINSTE(WENN(ZÄHLENWENN($A$2:$A$11;$D$2:$D$11)>0;ZEILE($2:$11)-1);ZEILE(A1)));"")

Alternativ ohne Strg-Shift-Enter:

Code:

=WENNFEHLER(INDEX($D$2:$D$11;AGGREGAT(15;6;ZEILE($A$2:$A$11)-1/(ZÄHLENWENN($A$2:$A$11;$D$2:$D$11)>0);ZEILE(A1)));"")

Für den die beiden Werte dann:

Code:

=WENNFEHLER(SVERWEIS(H2;$A$1:$B$11;2;0);"")

Code:

=WENNFEHLER(SVERWEIS(H2;$D$2:$E$11;2;0);"")

Gruß,
steve1da

[rldrake]

hallo steve1da,
vielen Dank,... das hat super geklappt und ging so schnell, habe mich riesig gefreut  :) . Zwei Kleinigkeiten habe ich für mich angepasst.
Kann ich bitte noch eine Frage loswerden:
Wenn ich eine Tabelle löschen möchte, hängt sich das makro auf bei,      Selection.QueryTable.Delete
Offenbar ist die QueryTable nach dem Datenimport nicht geschlossen worden. Frage: Wie mache ich das in meinem Import Makro

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+i
'
    Sheets("DAX Komponenten").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.godmode-trader.de/indizes/dax-performance-index-kurs,133962/komponenten" _
        , Destination:=Range("$A$1"))
'       .CommandType = 0
'       .Name = "komponenten_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub