2 Dateien/Arbeitsmappen abgleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Dateien_abgleichen() Dim iZeile As Long Dim WS1 As Worksheet, WS2 As Worksheet Set WS1 = Workbooks("Mappe1").Worksheets("Tabelle1") Set WS2 = Workbooks("Mappe2").Worksheets("Tabelle1") For iZeile = 1 To WS1.Cells(65536, 1).End(xlUp).Row Wert = Cells(iZeile, 1) With WS2.Columns(1) Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then If WS1.Cells(iZeile, 2) <> c(1, 2) Then c(1, 2) = Cells(iZeile, 2) End If End If End With Next iZeile End Sub

Hallo Sillk
Ich bin davon ausgegangen, dass der Vergleich der beiden Tabellen einmalig ist, dann hätte ich es mit dem SVERWEIS gemacht. So wie die Sache aber aussieht muss der Update von Zeit zu Zeit erfolgen und da kommt man wahrscheinlich doch nicht an VBA vorbei.
Ich bin zwar kein VBA Crack, habe aber mal den Code von Beni eingefügt und auf die Spalten deiner Beispielsdateien angepasst. Damit das ganze aber bei Dir auch noch funktioniert, musst Du auf alle Fälle im VBA Code die Filenamen anpassen.

Die Datei https://www.herber.de/bbs/user/4563.xls wurde aus Datenschutzgründen gelöscht

Die Datei https://www.herber.de/bbs/user/4564.xls wurde aus Datenschutzgründen gelöscht

Wenn Du noch Fragen hast, so melde Dich doch wieder
Gruss
Fritz

Hallo Fritz!
Danke! ;)
Ich habe aber immer noch Fragen zum Code, nur falls ich ihn irgendwann ändern muss, z.B. wenn ich irgendwann Spalten zwischendrin einfügen möchte ^^;;


Sub Dateien_abgleichen()
Dim iZeile As Long
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Workbooks("4563.xls").Worksheets("Preis")
Set WS2 = Workbooks("4564.xls").Worksheets("Produktliste")
//Alles klar bis dahin ;)
For iZeile = 1 To WS1.Cells(65536, 3).End(xlUp).Row
//Für was steht "65536"? Ist die "3" für die Spalte?
Wert = Cells(iZeile, 3)
//Die Zelle, bei dem die erste Bestellnummer  anfängt?
//"iZeile" für egal welche und "3" für die Spalte?
With WS2.Columns(3)
//"3" für die Spalte, in der die Bestellnummern sind?
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
//Muss ich hier was ändern?
If Not c Is Nothing Then
If WS1.Cells(iZeile, 3) <> c(1, 2) Then
//"3" für die Spalte der Bestellnummer?
//Für was steht "c(1,2)?" Was ist die "1" und was die "2"?
c(1, 5) = Cells(iZeile, 6)
//Für was steht "c(1,5)"?
//"6" für die Spalte, in der in der Grundliste die Preise stehen?
End If
End If
End With
Next iZeile
MsgBox "Preis Update in Tabelle Produktliste durchgeführt", , "Preise"
End Sub

Vielen herlichen Dank für Deine Mühen!
sillk

Beliebteste Forumthreads (12 Monate)

2 Dateien/Arbeitsmappen abgleichen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Dateien/Arbeitsmappen abgleichen

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

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread