Tabelle neu mit alt synchronisieren, nur 1 Spalte

Hallo liebe Excel-Helfer,
ich habe ein Problem, welches ich über die Recherche nicht lösen konnte.
Es gibt eine Master-Mappe, in der täglich in das Tabellenblatt Artikel neue Artikel eingelesen werden.
Ich arbeite mit meiner Auswertungs-Mappe, Tabellenblatt Auswertung1, die ich bisher lediglich aus der Master-Mappe neu hinzubekommende Artikel-Nr. mit deren Bezeichnung per Kopieren/Einfügen, fülle. Das ist irre aufwendig.
Über VBA möchte ich das gerne wie folgt lösen:
TB Auswertung1 hat ein CButton, wenn ich darauf klicke, soll geprüft werden, ob neue Artikel-Nr. im Master/Artikel vorhanden aber nicht in der Auswertung1 sind. Wenn ja, dann trage Artikel-Nr. und die Bezeichnung am Ende der Auswertung1 ein, wenn nicht, dann ein Hinweisfenster (MSG Box mit OK)
Was richtig klasse wäre, habe ich bei meiner Recherche gesehen, wenn Daten übertragen werden, ein Hinweisfenster, wie viele übertragen wurden. Wäre toll, muss aber nicht.
Muss die Master-Mappe beim Prüfen/Übertragen geöffnet sein? Wenn ja, muss das mit VBA geprüft und ggf. geöffnet werden.
Freue mich, wenn ihr mir bei meinem Problem helfen würdet, würde meine Arbeit erheblich vereinfachen.
https://www.herber.de/bbs/user/129004.xlsx
Master.xlsm
https://www.herber.de/bbs/user/129003.xlsx
Auswertung.xlsx
Sage schon einmal herzlichen Dank.
Gruß Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Claudia,
hier ein entsprechendes Makro für den Datenabgleich Master/Auswertung.
LG
Franz


Sub Daten_Neu_Einlesen()
Dim wksMaster As Worksheet, wkbMaster As Workbook
Dim wksAusw As Worksheet
Dim varArtikel As Variant, arrAusw As Variant
Dim ZeileA As Long, ZeileLA As Long, ZeileM As Long, iCountNeu As Integer, StatusCalc As  _
Long
Dim sPfad As String
Dim bolOpen As Boolean, bolNeu As Boolean
'Makrobremsen lösen
With Application
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
Set wksAusw = ActiveWorkbook.Worksheets("Auswertung1")
'prüfen, ob Masterdatei geöffnet.
For Each wkbMaster In Application.Workbooks
If UCase(wkbMaster.Name) = UCase("master.xlsx") Then
bolOpen = True
Exit For
End If
Next
If wkbMaster Is Nothing Then
'bei bedarf Master-datei öffnen
sPfad = ActiveWorkbook.Path 'ggf. anpassen
Set wkbMaster = Application.Workbooks.Open(Filename:=sPfad & "\" & "Master.xlsx", _
ReadOnly:=True)
bolOpen = False
End If
'Blatt mit Artikeldaten in Master öffnen
Set wksMaster = wkbMaster.Worksheets("Artikel")
With wksAusw
'letzte Zeile mit Artikel-nr. in Auswertung
ZeileLA = .Cells(.Rows.Count, 1).End(xlUp).Row
'vorhandene artikel-Nr. in Auswertung in Array einlesen
If ZeileLA  .Calculation Then .Calculation = StatusCalc
End With
If bolOpen = False Then wkbMaster.Close savechanges:=False
'Hinweis zu Vergleich anzeigen.
If iCountNeu = 0 Then
MsgBox "keine neuen Artikel in Master-Datei", vbOKOnly, "Auswertung aktualisieren"
Else
MsgBox iCountNeu & " neue Artikel in Auswertung übertragen", vbOKOnly, _
"Auswertung aktualisieren"
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Tabelle neu mit alt synchronisieren, nur 1 Spalte

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread