Vergleich zweier Tabellen und Differnez der Zeiten

Hallo Zusammen,
hänge schon seit einigen Tagen an dem Thema dran, aber komme nicht so wirklich zu einem Ergebnis.
Ich habe zwei Arbeitsblätter in einer Tabelle, welche identisch aufgebaut sind.
Spalte A = Personalnr
Spalte B = Gültig bis Datum
Spalte C = Lohnart
Spalte D = Anzahl je Zeiteinheit
Die gleiche Personalnummer kann sich wiederholen, unterscheidet sich aber anhand der Lohnart. Die Lohnart kann allerdings je Personalnummer mehrfach vorkommen.
Ziel ist es, beide Tabellen miteinander zu vergleichen.
Die Summen der jeweiligen "Personalnummer", "Lohnart", aus der "Anzahl je Zeiteinheit" bilden und die Summe aus Tabelle A mit Tabelle B in Abhängigkeit der "Personalnr" und "Lohnart" voneinander abziehen.
Hoffe es etwas verständlich geschildert zu haben.
Beispiel -
Tabelle A:
Personalnummer Gültig Lohnart Anzahl je Zeiteinheit
72 115 40
72 300 8
72 301 14,10
Tabelle B
Personalnummer Gültig Lohnart Anzahl je Zeiteinheit
72 115 40
72 300 8
72 301 14,10
72 301 20

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
beide Sheets haben eine unterschiedliche Anzahl an Daten und
Sheet ERP_2 hat nur 3 Spalten statt 4. Das ist im Makro berücksichtigt.
Sonst ginge es noch etwas einfacher.
Bei der Summe wird Spalte E von D abgezogen.

Sub Vereinen()
Dim i As Long
Dim lastRow1 As Long
Dim lastRow2 As Long
Dim lastRow3 As Long
Dim firstFree As Long
lastRow1 = Worksheets("ERP_1").Cells(Rows.Count, "A").End(xlUp).Row
lastRow2 = Worksheets("ERP_2").Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
'Kopieren
Worksheets("ERP_1").Range("A2:D" & lastRow1).Copy Worksheets("Ergebnis").Range("A2")
firstFree = Worksheets("Ergebnis").Cells(Rows.Count, "A").End(xlUp).Row + 1
With Worksheets("ERP_2")
.Range("A2:A" & lastRow2).Copy Worksheets("Ergebnis").Range("A" & firstFree)
.Range("B2:B" & lastRow2).Copy Worksheets("Ergebnis").Range("C" & firstFree)
.Range("C2:C" & lastRow2).Copy Worksheets("Ergebnis").Range("E" & firstFree)
End With
With Worksheets("Ergebnis")
lastRow3 = .Cells(Rows.Count, "A").End(xlUp).Row
'sortieren
.Range("A2:E" & lastRow3).Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Key2:=.Range("C2"), Order2:=xlAscending, _
Header:=xlNo
'vergleichen + addieren
For i = lastRow3 To 2 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
If Range("C" & i) = Range("C" & i - 1) Then
Cells(i - 1, "D").Value = (Cells(i - 1, "D").Value + Cells(i, "D").Value)
Cells(i - 1, "E").Value = (Cells(i - 1, "E").Value + Cells(i, "E").Value)
Rows(i).Delete
End If
End If
Next i
'Summe
lastRow3 = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("F2:F" & lastRow3).FormulaR1C1 = "=RC[-2]-RC[-1]"
.Range("F2:F" & lastRow3).Value = Range("F2:F" & lastRow3).Value
End With
End Sub

Gruß
Klaus
https://www.herber.de/bbs/user/120717.xls

Beliebteste Forumthreads (12 Monate)

Vergleich zweier Tabellen und Differnez der Zeiten

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleich zweier Tabellen und Differnez der Zeiten

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread