Hilfe bei Formelerstellung

Hallo Ralf,

die Antwort von Daniel hat mich auf eine Lösung ohne Makro gebracht.

1. Kopiere die Daten von Tabelle1 und 2 untereinander nach Tabelle3
2. Falls Tabelle3 keine Überschrift hat, vergebe eine
3. Schreibe in B2 von Tabelle3: =ZÄHLENWENN(A:A;A2) und ziehe herunter
4. Filtere die Tabelle nach 1 in Spalte B
5. Lösche die kompletten Zeilen der sichtbaren Zellen (außer Überschrift)
6. Entferne den Filter oder filtere nach "Alle"

Nun hast du in Spalte A alle doppelten Einträge. Diese sind aber doppelt. Entferne die Duplikate mit dem Spezialfilter ohne Duplikate und lösche die Hilfsspalte.

Claus

Hallo Claus,

Erst mal vielen Dank, dass Du Deinen Sonntag für mein Problem opferst!

Ich habe Deine Anweisungen befolgt, wobei es zu folgendem Konflikt kommt:

Ich bin unter "Ansicht" in "Makros" gegangen und habe den Makroname "Doppelte" ausgeführt. Hier kommt es zu der Meldung "Code kann im Haltemodus nicht ausgeführt werden". Beim ersten Versuch erschien nach dem Ausführen des Makros eine Fehlermeldung mit der
Option zum "debuggen". Diese habe ich gewählt und erhalte nun die beschriebene Meldung.

Wenn ich es richtig verstehe, funktioniert das Makro nicht.

Die folgende Zeile Deines Code war bei der ersten Meldung gelb unterlegt, bevor ich das debuggen gestartet hatte:

Sheets("Tabelle3").Range("A1").Resize(n) = Application.Transpose(varTmp)

Hast Du dazu noch eine Idee?

Gruß Ralf

Hallo Ralf,

bei mir funktioniert das Makro ohne Probleme. Es kann also nur sein, dass im Code die Blattnamen nicht mit deinen übereinstimmen und deswegen keine Daten gefunden werden. Kontrolliere mal die Blattnamen und ändere sie, falls sie nicht Tabelle1, Tabelle2
usw. heißen. Wenn du auf debuggen gehst, ist eine Zeile gelb hinterlegt und das Makro hat gestoppt, ist im Haltemodus. Dann musst du in der Symbolleiste auf "Zurücksetzen" klicken, um aus dem Haltemodus zu kommen.

Falls es immer noch nicht funktionieren sollte, stelle mal eine Demo-Mappe zur Verfügung (hochladen bei z.B. DropBox oder OneDrive und hier den Link zur Datei posten).

Claus

Hallo Ralf,

der schnellste Weg für einen einmaligen Abgleich ist das Zusammenkopieren der beiden Listen (z.B. in Tabelle3) und dann die Funktion Duplikate entfernen aus dem Reiter
Daten:

Dazu markierst du zunächst alle Daten mit der Maus und öffnest dann den Dialog
Duplikate entfernen wie beschrieben:





Wenn du Vor- und Nachname in zwei Spalten hast, funktioniert auch das. Dann einfach die Checkboxen für Spalte A und Spalte B anklicken und auf OK bestätigen. Fertig.

Frohes Schaffen und viel Erfolg!

Daniel

Hallo Ralf,

probiere es mal mit folgendem Makro. In der Excel-Mappe drücke Alt+F11 => Einfügen => Modul und füge den Code ein.

Gehe zurück in die Mappe und rufe das Makro auf:

Sub Doppelte()

Dim LRow1 As Long, LRow2 As Long, n As Long

Dim varTmp() As Variant

Dim rngC As Range
LRow1 = Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Row

LRow2 = Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row
If LRow1 <= LRow2 Then

   With Sheets("Tabelle1")

      For Each rngC In .Range("A1:A" & LRow1)

         If Application.CountIf(Sheets("Tabelle2").Range("A1:A" & LRow2), rngC) = 1 Then

            ReDim Preserve varTmp(n)

            varTmp(n) = rngC

            n = n + 1

         End If

      Next

   End With

Else

   With Sheets("Tabelle2")

      For Each rngC In .Range("A1:A" & LRow2)

         If Application.CountIf(Sheets("Tabelle1").Range("A1:A" & LRow1), rngC) = 1 Then

            ReDim Preserve varTmp(n)

            varTmp(n) = rngC

            n = n + 1

         End If

      Next

   End With

End If

Sheets("Tabelle3").Range("A1").Resize(n) = Application.Transpose(varTmp)

End Sub

Claus