Excel 2010 ---- Namenslisten aus 2 Spalten vergleichen und zusammenführen.

Hallo Werner,

erkläre mal ein bisschen mehr. Sind das zusammengesetzte Namen? Wohin sollen sie kommen und was soll mit den Namen, die nicht übereinstimmen, passieren?

Wenn alle Namen als Unikate erscheinen sollen, dann kopiere die beiden Namenslisten untereinander und entferne die Duplikate mit Daten => Duplikate entfernen.

Claus

Hallo ,,ich glaube das war ein Missverständnis. Ich möchte im Prinzip nur die Werte aus 2 Spalten in einer zusammenführen. Aber möglichst ohne copy paste. Werte sind Datuemer die aus 2 Spalten mit Formel S Verweis im Hintergrund. Danke

Hallo Claus,

Danke für deine Antwort. Habe zufällig mit Hilfe eines Freundes das Problem folgendermaßen gelöst:

Als Formel:

=SVERWEIS(F2;Tabelle2!F:F;1;0)

Sollte hier dann keine Übereinstimmung sein, wird einfach von Excel "#NW" in die Zelle geschrieben.

Sollte hier dann eine Übereinstimmung sein, wird der Inhalt von der zu vergleichenden Zelle geschrieben.

Funktioniert wahrscheinlich ähnlich wie dein Vorschlag. Hat das Problem gelöst.

Danke!

Hallo Kevin,

probiers mal in Tabelle1 Zeile 2 mit:

=WENN(ZÄHLENWENN(Tabelle2!F:F;F2)>0;"Match";"")

Claus

Hallo Rico,

sorry, mein Fehler. Probiere es mal mit folgendem Code. Sollte es dann immer noch nicht laufen, poste mal Beispiele deiner Daten.

Sub PersID()

Dim varCheck As Variant, varOut() As Variant

Dim i As Long, n As Long, LRow As Long

Dim myRng As Range, c As Range

Dim FirstAddress As String'Bereich mit Namen zu denen die PersID gesucht wird

varCheck = Sheets("Tabelle2").Range("A1:A10")

ReDim Preserve varOut(UBound(varCheck) - 1)'Tabelle in der gesucht wird

With Sheets("Tabelle1")

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

     'Namen in A PersID in B

    Set myRng = .Range("A1:B" & LRow)

    For i = LBound(varCheck) To UBound(varCheck)

        Set c = myRng.Find(varCheck(i, 1), LookIn:=xlValues)

        If Not c Is Nothing And InStr(c.Offset(, 1), "alt") = 0 Then

            varOut(n) = c.Offset(, 1)

            n = n + 1

        ElseIf Not c Is Nothing And InStr(c.Offset(, 1), "alt") > 0 Then

            FirstAddress = c.Address

            Do

                Set c = myRng.FindNext(c)

            Loop While InStr(c.Offset(, 1), "alt") > 0 And c.Address <> FirstAddress

            varOut(n) = IIf(InStr(c.Offset(, 1), "alt") = 0, c.Offset(, 1), "")

            n = n + 1

        End If

    Next

End With

Sheets("Tabelle2").Range("B1").Resize(n) = Application.Transpose(varOut)

End Sub

Claus