SVerweise filtern automatisch Werte aus?

Guten Abend.
Ich würde gerne um eure Hilfe bitten.

Vor wenigen Tagen habe ich eine Frage gestellt, wie man möglicherweise Spalten und Zeilen sortieren kann. Der dazugehörige Beitrag samt der Antwort von Yal findet sich unter https://www.herber.de/forum/messages/1966148.html.

Nachdem ich die ganzen Antworten versucht habe zu nutzen, habe ich mich letzten Endes für die Variante von Yal entschieden. Dafür vier Formeln genutzt (=Tabelle1[@...]; =Tabelle[@...]; =Sortieren(Eindeutig(VStapeln(...); =WENNFEHLER(SVerweis(...)) und die Tabellen gebildet bzw. die Werte sortiert. Dies lässt sich auch anhand der Bilder erkennen.

Userbild

Nun zu meinem Problem: wie man auf den Bildern erkennt, habe ich einzelne Werte farblich markiert. Mein großes Problem ist nämlich, dass ich in meiner Ursprungsliste mehrere gleiche Werte vor allem in Tabelle 2 habe, die später in der Endtabelle durch "SVerweise" herausgefiltert werden. Das heißt, für Feld1 habe ich zum Beispiel unter Nummer 1 dreimal die Höhe 10; dies ist in Tabelle 1 dagegen nicht der Fall. Wobei dies nicht zu auszuschließen ist, es soll sich hierbei nur um ein grobes Beispiel drehen.

In der Endtabelle sollen alle - und damit genauestens - Werte aufgezeigt werden. Auch wenn dies zur Folge hat, dass für Tabelle 1 möglicherweise nur "Feld 1, Nummer 1, Höhe 10" und auf der anderen Seite "Feld 1, Nummer 1, Höhe 10" dreimal steht. Es sollen die realen Werte angegeben sein, damit man später wiederum die Unregelmäßigkeiten (also z.B
warum gibt es von "Feld 1, Nummer 1, Höhe 10" in unseren alten Akten drei Fälle, wenn wir offiziell nur einen haben) prüfen und nachvollziehen kann.

Wie kann ich die Formel also ändern, dass "=WennFehler(SVerweise(...)" alle Werte nimmt, auch wenn das möglicherweise die Tabelle unnötig in die Länge zieht? In Kurzfassung möchte ich also die Duplikate alle auch in der Tabelle haben.

Das Originaldokument gibt es im Übrigen in der ersten Frage, Yal hat freundlicherweise eins hochgeladen.

Danke euch!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Beamten,

mir hat die VBA-Lösung keine Ruhe gelassen. Folgende Code kommt in einem allgemeine Modul:



Sub Übertragen()

Dim Lo1 As ListObject, Lo2 As ListObject

Dim Row1 As Long, Row2 As Long, Ausg As Long

Dim Key1 As String, Key2 As String



    Sortieren

    With ThisWorkbook.Worksheets("Tabelle1")

        Set Lo1 = .ListObjects("Tabelle1")

        Set Lo2 = .ListObjects("Tabelle2")

        Row1 = 1

        Row2 = 1

        Do While Row1 = Lo1.ListRows.Count And Row2 = Lo2.ListRows.Count

            Ausg = Ausg + 1

            Key1 = MakeKey(Lo1.ListRows(Row1).Range.Value)

            Key2 = MakeKey(Lo2.ListRows(Row2).Range.Value)

            If Key1 = Key2 Then

                .Cells(Ausg, "R").Resize(1, 3).Value = Lo1.ListRows(Row1).Range.Value

                Row1 = Row1 + 1

            End If

            If Key1 >= Key2 Then

                .Cells(Ausg, "V").Resize(1, 3).Value = Lo2.ListRows(Row2).Range.Value

                Row2 = Row2 + 1

            End If

        Loop

    End With

End Sub



Private Function MakeKey(Satz) As String

Dim i

Dim Erg As String



    For i = LBound(Satz, 2) To UBound(Satz, 2)

        If IsNumeric(Satz(1, i)) Then

            Erg = Erg & ";" & (100000 + Satz(1, i))

        Else 

            Erg = Erg & ";" & Satz(1, i)

        End If

    Next

    MakeKey = Mid(Erg, 2)

End Function

Es setzt voraus, dass das Blatt "Tabelle1" heisst und die Tabellen "Tabelle1" und "Tabelle2" heissen.
Ergebnis wird in den Spalten R bis X zurückgegeben.

Die Einträge in den Tabelle1 und 2 müssen sortiert sein, sonst funktioniert es nicht. Trotz Sortierung wird es problem geben, wenn Zahlen am Ende eines Textes gibt, z.B. mit Feld1 und Feld10. Da müsste der Zahl vom Text getrennt und als Zahl betrachtet werden

Man kann es per Hand oder mit folgenden Code:

Sub Sortieren()

Dim i



    For i = 1 To 2

        With ThisWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle" & i).Sort

            .SortFields.Clear

            .SortFields.Add2 Key:=Range("Tabelle" & i & "[[#All],[Feld]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers

            .SortFields.Add2 Key:=Range("Tabelle" & i & "[[#All],[Nummer]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers

            .SortFields.Add2 Key:=Range("Tabelle" & i & "[[#All],[Länge]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers

            .Header = xlYes

            .MatchCase = False

            .Orientation = xlTopToBottom

            .SortMethod = xlPinYin

            .Apply

        End With

    Next

End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

SVerweise filtern automatisch Werte aus?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVerweise filtern automatisch Werte aus?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread