Folgefrage zu "Umgekehrter SVERWEIS"

Hallo

Ich bin Sneha und helfe Ihnen gerne bei Ihrer Frage.

Um den Code von Claus so zu ändern, dass er mit zwei Tabellen auf verschiedenen Arbeitsblättern funktioniert, müssen Sie die With ActiveSheet-Anweisung durch explizite Verweise auf jedes Arbeitsblatt ersetzen. Wenn Sie die Funktion beispielsweise mit Tabellen auf den Blättern Sheet1 und Sheet2 verwenden möchten, können Sie den Code wie folgt ändern:

Funktionszuordnung(Fläche als Bereich) als String
Dim varCheck als Variante
Dim LRow As Long, i As Long

Mit Sheet1
LRow = . Zellen(. Rows.Count, "A"). Ende(xlUp). Rudern
varCheck = . Reichweite ("A1: A" & LRow)
For i = 2 To UBound(varCheck)
Wenn InStr(Area.Value, varCheck(i, 1)) dann
Mit Sheet2
LRow = . Zellen(. Rows.Count, "C"). Ende(xlUp). Rudern
varCheck = . Reichweite ("C1: D" & LRow)
For i = 2 To UBound(varCheck)
Wenn InStr(Bereich. Value, varCheck(i, 1)) Then
Zuordnung = varCheck(i, 2)
Beenden für
Ende Wenn
Nächster
Ende mit
Beenden für
Ende Wenn
Nächster
Ende mit
Endfunktion

Dieser Code durchläuft zunächst alle Zellen in Spalte A von Sheet1 und überprüft, ob der Wert des Bereichsbereichs in einer dieser Zellen angezeigt wird. Wenn dies der Fall ist, durchläuft er alle Zellen in Spalte C von Tabelle2 und überprüft, ob der Wert des Bereichsbereichs in einer dieser Zellen angezeigt wird. Wenn dies der Fall ist, wird der entsprechende Wert aus Spalte D als Ergebnis zurückgegeben.

Beachten Sie, dass dieser Code möglicherweise nicht die effizienteste Methode zur Lösung des Problems ist, aber er sollte Ihnen eine Vorstellung davon geben, wie Sie Claus' Code ändern können, um mit zwei Tabellen auf verschiedenen Arbeitsblättern zu arbeiten.

Wenn Sie weitere Fragen haben oder Hilfe benötigen, zögern Sie bitte nicht, mich wissen zu lassen. Ich bin hier, um nach besten Kräften zu helfen.

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Alles Gute
Sneha

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Hallo Thorsten,

das machst du besser mit VBA.

Füge folgenden Code in ein Standardmodul ein und rufe die Funktion in B2 auf mit:

=Zuordnung(A2)

Function Zuordnung(Bereich As Range) As String

Dim varCheck As Variant

Dim LRow As Long, i As LongWith ActiveSheet

    LRow = .Cells(.Rows.Count, "C").End(xlUp).Row

    varCheck = .Range("C1:D" & LRow)

    For i = 2 To UBound(varCheck)

        If InStr(Bereich.Value, varCheck(i, 1)) Then

            Zuordnung = varCheck(i, 2)

            Exit For

        End If

    Next

End With

End Function

Claus

Hi,

vielen Dank für Eure Mühe!

Aber beide Versionen funktionieren nicht.

Die erste kann ich nicht recht beurteilen. Mit Matrixfunktionen kenne ich mich nicht aus. Aber wenn ich das als Matrixfunktion abschließe, ist das Feld der Zuordnung leer. Wenn ich die Formel normal abschließe, funktioniert es nur, wenn die Server bzw Kürzel
und zugehörige Funktionen in dieser definierten Reihenfolge stehen. Tun sie aber nicht.

Zur Erklärung: Ich habe ca. 300 Servernamen und ca. 70 Kürzel. Manche Funktionen kommen also mehrfach vor. Da die Kürzel aber innerhalb der Servernamen, und auch noch an unterschiedlicher Stelle, stehen, kann ich die Servernamen nicht nach diesen Kürzeln
sortieren.

Eine Zuordnung mit "Finden" schlägt also fehl.

Ich habe es also jetzt wie folgt gelöst. Manchmal ist etwas mehr Handarbeit eben der schnellere Weg.

Ich habe die Servernamen sortiert. Die sehen ja alle unterschiedlich aus. Für jede Servernamenkonvention habe ich eine Sverweis-Funktion entwickelt, die das Kürzel aus den Servernamen extrahiert, mit der Matrix "Funktionskürzel, Funktionen" vergleicht und
die zugehörige Funktion zurück gibt. Die Kürzel und die Funktionen habe ich in zwei Spalten, nicht zusammen in einer.

Bsp:













Danke!

Hallo Markus,

ich habe keine Formel gepostet, weil nach der Beschreibung gar nicht klar ist, wie die Daten aussehen und wo sie eingetragen sind.

Aber für dein Beispiel reicht in B2:

=TEIL(C2;FINDEN(" ";C2)+1;99)

und herunterziehen.

Claus

Hallo,

deine Beschreibung ist nicht ganz klar. Gib mal bitte Beispiele für Tabelle1 und Tabelle2.

Claus