Suche noch immer eine Lösung für mein teams Problem

Seit Office 2007 gibt es Range.RemoveDuplicates, d.h. Du kannst doppelte Einträge in einer Liste von Excel löschen lassen.

Kopiere also deine beiden Listen untereinander, dann im Reiter "Daten" auf den Button "Duplikate entfernen" klicken, die Spaltenüberschrift(en) anhaken die zur Identifizierung notwendig sind und Ok und fertig.

http://www.win-tipps-tweaks.de/cms/...elte-eintraege-unter-excel-2007-loeschen.html

Andreas.

Nö, hast schon Recht, wäre auch ein Möglichkeit. Um Listen zusammenzuführen gibt es eine Vielzahl an Möglichkeiten.

Andreas.

Hallo zunächst an Andreas und Claus,

Ich habe die Aufgabe ganz anders verstanden als Ihr sie versucht anzugehen. Wäre nicht ein simpler
sverweis die Lösung?

Mag aber auch sein, dass ich das falsch auffasse.

Gert

Hallo Benny,



speichere die 2014er Mappe als Mappe mit Makros ab und füge folgenden Code in ein Standardmodul ein. Öffne dann beide Mappen und rufe das Makro auf. Einige 100000 Zeilen mit einigen 1000 Zeilen abzugleichen
dauert ein wenig. Es wird der PC und die darauf installierte Software verglichen:

Sub Uebertrag()

Dim LRow13 As Long, LRow14 As Long

Dim varData As Variant, varCheck As Variant

Dim varOut() As Variant

Dim i As Long, j As Long, n As LongWith Workbooks("Annual Software License Report 2013").Sheets("checkedComputer")

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

   .AutoFilterMode = False

   varCheck = .Range("A1:G" & LRow13)

End WithWith ThisWorkbook.Sheets("web40repsoftwarePC")

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

   .AutoFilterMode = False

   varData = .Range("A1:C" & LRow14)

   

   For i = 2 To UBound(varData)

      For j = 2 To UBound(varCheck)

         If varData(i, 1) = varCheck(j, 1) And varData(i, 3) = varCheck(j, 2) Then

            ReDim Preserve varOut(4)

            For n = 0 To 4

               varOut(n) = varCheck(j, n + 3)

            Next n

            .Range("F" & i).Resize(columnsize:=5) = varOut

            Exit For

         End If

      Next

   Next

End With

End Sub

Mit freundlichen Grüßen

Claus

Danke für die Info. Bei einer lokalen Verknüpfung auf einem File-Server geht das natürlich, kein Problem. Ich suche eine Lösung für Excel-Dateien, welche in Teams Ordnern abgelegt sind
<br />Jörg
<br />