werte in unterschiedlichen Arbeitsmappen verglei

Forumthread: werte in unterschiedlichen Arbeitsmappen verglei

23.07.2015 10:26:39

Denis

Hallo,
ich bin an einer Sache in der ich nicht weiterkommen.
Hoffentlich kann jemand helfen.
Ich habe 2 Arbeitsmappen deren Aufbau, auch in den Tabellen, gleich sind.
Es gibt in Spalte "I" eine eindeutige Identifikationsnummer.
In Spalte "L:T" sind Kosten hinterlegt die abgeglichen werden sollen.
Wenn es keine Übereinstimmung gibt, hätte ich gerne einen Hinweis per Messagebox
mit der betroffenen Identifikationsnummer.
Ich hoffe es ist verständlich.
Gruß
Denis

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Bitte ne Beispielmappe

23.07.2015 11:27:31

Raphael
AW: werte in unterschiedlichen Arbeitsmappen verglei

24.07.2015 09:38:07

Denis
AW: werte in unterschiedlichen Arbeitsmappen verglei

24.07.2015 14:16:55

Denis
etwa so

24.07.2015 23:10:18

Raphael
AW: etwa so

27.07.2015 09:28:27

Denis

Bitte ne Beispielmappe

23.07.2015 11:27:31

Raphael

Hallo Denis,
Erstell doch eine Beispielmappe.
Sollen in der Msgbox alle Nr angezeigt werden welche unterschiede aufweisen?
Gruess Raphael

AW: werte in unterschiedlichen Arbeitsmappen verglei

24.07.2015 09:38:07

Denis

Hier die beiden Testdateien.
Sorry hätte ich gleich machen sollen.
Die Bezüge zu den Spalten weichen jetzt von den obig gemachten Angaben ab.
https://www.herber.de/bbs/user/99045.xlsx
https://www.herber.de/bbs/user/99046.xlsx
Danke und Gruß
Denis

AW: werte in unterschiedlichen Arbeitsmappen verglei

24.07.2015 14:16:55

Denis

Kann mal bitte jemand drüber schauen?

etwa so

24.07.2015 23:10:18

Raphael

Hallo Denis,
vom Prinzip her würde ein solcher Code funktionieren. Natürlich nur unter der Bedingung das die zwei Tabellen tatsächlich was Ihre grösse anbelangt identisch sind.


Sub Tabellen_Vergleichen()
Dim i As Long
Dim j As Long
Dim vntRng1 As Variant
Dim vntRng2 As Variant
Dim strDifferenz As String
vntRng1 = ThisWorkbook.Worksheets("Tabelle1").Range("B5:G10")
Workbooks.Open ThisWorkbook.Path & "\99046.xlsm"
With ActiveWorkbook
vntRng2 = .Worksheets("Tabelle1").Range("B5:G10")
.Close savechanges:=False
End With
For i = LBound(vntRng1) To UBound(vntRng1)
For j = LBound(vntRng1, 2) To UBound(vntRng1, 2)
If Not vntRng1(i, j) = vntRng2(i, j) Then
strDifferenz = strDifferenz & vntRng1(i, 1) & " " & vntRng1(1, j) & vbCrLf
End If
Next j
Next i
MsgBox strDifferenz
End Sub

Gruess
Raphael

AW: etwa so

27.07.2015 09:28:27

Denis

Danke. So klappt es.
Gruß
Denis

Beliebteste Forumthreads (12 Monate)

werte in unterschiedlichen Arbeitsmappen verglei

Forumthread: werte in unterschiedlichen Arbeitsmappen verglei

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread