2 Tabellen vergleichen und ergänzen

ich denke, so sollte es gehen...
Den folgenden Code in ein Modul Deiner Mappe und am besten über einen CommandButton in Deinem Tabellenblatt starten.
Als erstes erhälst Du ein Dialogfenster, in welchem Du die Datei mit den neuesten Daten auswählst.
Danach sollte die Aktualisierung automatisch erfolgen. Die Datei mit den neuen Daten wird automatisch wieder geschlossen.
Solltest Du nach der Aktualisierung noch eine automatische Sortierung wünschen, mußt Dich halt nochmal melden...
Probier das ganze aber erstmal in einer Kopie Deiner Mappe...

Sub einlesen()
Dim vFile As Variant
Dim bRow, rowMA As Integer
Set wks1 = ActiveSheet
bRow = [B65536].End(xlUp).Row
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
vFile = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls), *.xls")
If vFile = False Then GoTo ERRORHANDLER
Workbooks.Open vFile
Set wkb2 = ActiveWorkbook
Set wks2 = ActiveSheet
rowMA = 2
Do While wks2.Cells(rowMA, 2).Value <> ""
    Set rngVert = wks1.Columns(2).Find(wks2.Cells(rowMA, 2).Value, lookat:=xlWhole, LookIn:=xlValues)
    If rngVert Is Nothing Then
        wks2.Rows(rowMA).Copy wks1.Range("A" & bRow + 1)
        bRow = bRow + 1
    End If
    rowMA = rowMA + 1
Loop
wkb2.Close savechanges:=False
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Code eingefügt mit Syntaxhighlighter 2.1

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !

Hallo!
Ich bin gerade an einer Einarbeitung mit Excel. Und zwar habe ich folgendes Problem:
Ich habe 2 Tabellen mit gleichen Formaten und gleicher Struktur.
Die Spalte a ist leer, in Spalte B stehen Vertragsnummern, in Spalte C stehen Bezeichnungen und in Spalten D und E stehen Tage und Stunden.
Jetzt bekomme ich jede Woche eine neue Excel Datei in welcher neue Daten stehen. Diese Datei ist genau so aufgebaut wie die Tabelle von oben. In der Tabelle 2 stehen die gleichen Daten wie in Tabelle 1, aber sie enthält noch zusätzlich Daten. Jetzt soll die Tabelle 1 automatisch aktualisiert werden mit den Daten der Tabelle 2. Die Tabellen sollen quasi verglichen werden und neue Daten, die nicht in Tabelle 1 stehen, automatisch übernehmen bzw. ergänzen. Da in der Tabelle 2 die neuen Daten inmitten der alten daten stehen müsste ich die neuen Daten heraussuchen, deshalb soll ein Vergleich angestellt werden.
Kann man die mit einer Formel bewerstelligen oder muss man dazu mit VBA arbeiten? Für Tipps wäre ich sehr dankbar!
Tschüss

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beliebteste Forumthreads (12 Monate)

2 Tabellen vergleichen und ergänzen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Tabellen vergleichen und ergänzen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread