2 Tabellen synchronisieren

Hallo Liebe Excler,
Ich habe folgendes Problem. Ich habe eine Excel-Datei, in die ich in einem Arbeitsblatt in einer Tabelle neue Daten hinzufüge. Dabei füge ich die neue Zeile immer ganz oben ein (Rechtsklick - Zeile Einfügen)
Diesen neuen Datensatz möchte ich dann automatisch in der anderen Datei auch haben. Dabei reicht es mir wenn ich die andere Datei öffne und auf aktualisieren klicke.
Das Problem an der Geschichte: Die Tabelle der 2. Tabelle hat mehr Spalten, da dort noch Zusatzinfos zum Datensatz, welchen ich in der 1. Tabelle eingetragen habe, hinzugefügt werden. Bei allen meinen Lösungsversuchen wurden leider die Extra Spalten der 2. Tabelle nicht mitverschoben, sodass durch den neu übernommenen Datensatz diese Zusatzinfos in den Extra spalten beim falschen Datensatz waren...
Ich habe mal eine Datei mit 2 Beispielblättern eingefügt um mein Problem zu verdeutlichen. Ich bin dankbar für jede Hilfe!
https://www.herber.de/bbs/user/150739.xlsx
Viele Grüße,
Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal:


Sub sync()
Dim rngC As Range, vntKey, vntValue
Dim objTab1 As Object, objTab2 As Object
Dim oOBJ
Dim lRow As Long
Set objTab1 = CreateObject("scripting.dictionary")
Set objTab2 = CreateObject("scripting.dictionary")
With Sheets("Tabelle1")
For Each rngC In .Range(.Cells(5, 1), .Cells(Rows.Count, 1).End(xlUp))
vntKey = Application.Transpose(Application.Transpose(rngC.Resize(, 5)))
vntKey = Join(vntKey, "|")
vntValue = Application.Transpose(Application.Transpose(rngC.Resize(, 8)))
vntValue = Join(vntValue, "|")
objTab1(vntKey) = vntValue
Next rngC
End With
With Sheets("Tabelle2")
For Each rngC In .Range(.Cells(5, 1), .Cells(Rows.Count, 1).End(xlUp))
vntKey = Application.Transpose(Application.Transpose(rngC.Resize(, 5)))
vntKey = Join(vntKey, "|")
vntValue = Application.Transpose(Application.Transpose(rngC.Resize(, 8)))
vntValue = Join(vntValue, "|")
objTab2(vntKey) = vntValue
Next rngC
End With
For Each oOBJ In objTab1
If objTab2.exists(oOBJ) Then
objTab1(oOBJ) = objTab2(oOBJ)
End If
Next oOBJ
lRow = 5
For Each oOBJ In objTab1
vntValue = Split(objTab1(oOBJ), "|")
Sheets("Tabelle2").Cells(lRow, 1).Resize(, UBound(vntValue) + 1) = vntValue
lRow = lRow + 1
Next oOBJ
End Sub

Geht aber nur von Tab1 nach Tab2.
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread