Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abgleich zweier Tabellen und Übernahme in eine Tab

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige