Abgleich zweier Tabellen und Übernahme in eine Tab

Forumthread: Abgleich zweier Tabellen und Übernahme in eine Tab

03.05.2019 11:54:02

Oliver

Liebes Forum,
nach langer Sucherei und Ausprobieren muss ich euch nun doch um Hilfe bitten.
Ich möchte wie im Upload zu sehen die 2 Tabellenblätter vergleichen.
Hierbei soll aus "Neuer Katalog Konkurrenz" die ISBN als Vergleichselemente ausgelesen werden und mit den ISBN der "EFL Tabelle" verglichen werden. ISBN die in der "EFL Tabelle" schon vorhanden sind sollen in "Neuer Katalog Konkurrenz" gelöscht werden und bei neuen die gesamte Zeile an die "EFL Tabelle" angehängt werden.
Ich hoffe es ist verständlich?
Ich würde mich freuen, wenn jmd. seine Lösung etwas erklären könnte bzw. was die einzelnen Schritte im Makro tun, aber nur falls das nicht zu viel Aufwand macht. Ich würde das Makro evtl. gerne auf ähnliche Tabelle anpassen.
Herzliche Grüße
https://www.herber.de/bbs/user/129551.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abgleich zweier Tabellen und Übernahme in eine Tab

03.05.2019 13:30:45

UweD

Hallo
so?

Sub löschen()
    Dim TbE, TbN, Sp As Integer, LrE As Long, LrN As Long, i As Long
    Dim L As Long, N As Long
    
    Set TbE = Sheets("EFL Tabelle")
    Set TbN = Sheets("Neuer Katalog Konkurrenz")
    Sp = 4 'ISBN Spalte 
    
    LrN = TbN.Cells(TbN.Rows.Count, Sp).End(xlUp).Row
    For i = LrN To 2 Step -1
        If WorksheetFunction.CountIf(TbE.Columns(Sp), TbN.Cells(i, Sp)) > 0 Then
            'bereits vorhanden 
            TbN.Rows(i).Delete xlUp 'löschen 
            L = L + 1
        Else
            LrE = TbE.Cells(TbE.Rows.Count, Sp).End(xlUp).Row 'Letzte Zeile der Spalte 
            TbN.Rows(i).Copy TbE.Rows(LrE + 1) 'unten anhängen 
            TbN.Rows(i).Delete xlUp 'Löschen 
            N = N + 1
        End If
    
    Next
    
    MsgBox L & " Einträge gelöscht," & vbLf & _
           N & " Einträge übertragen"
    
End Sub

LG UweD

AW: Abgleich zweier Tabellen und Übernahme in eine Tab

06.05.2019 09:48:25

Oliver

Hallo UweD,
danke für die schnelle und super kompetente Antwort.
Soweit ich es bisher sehe funktioniert es super.
Ich verstehe es zwar teilweise nicht (Also das Programm), aber das liegt wohl eher an meinen fehlenden VBA-Kenntnissen.
LG und danke nochmals.

Beliebteste Forumthreads (12 Monate)

Abgleich zweier Tabellen und Übernahme in eine Tab

Forumthread: Abgleich zweier Tabellen und Übernahme in eine Tab

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Abgleich zweier Tabellen und Übernahme in eine Tab

Forumthread: Abgleich zweier Tabellen und Übernahme in eine Tab

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread