Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vergleich von Tabellen

Vergleich von Tabellen
22.09.2008 15:29:00
Tabellen
https://www.herber.de/bbs/user/55577.xls
https://www.herber.de/bbs/user/55576.xls
Hallo,
ich möchte die beiden Tabellen aufgrund des darin enthaltenen Area Code vergleichen. Wichtig ist dabei ob sich die Tabelle 55577 gegenüber der Tabelle 55576 verändert hat, wichtig ist ob sich ein Preis aufgrund des Area Codes geändert hat oder ob ein Code der in Tabelle 55577 enthalten ist in Tabelle 55576 nicht enthalten war.
Kann mir bitte jemand helfen.
Danke
Andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von Tabellen
23.09.2008 15:11:01
Tabellen
Am besten die beiden Tabellen als 2 Woksheets und dann so:

Sub Vergleichen()
Dim I&, J&, X&, LZ2&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim SpaltenNummerAreaCode1&, SpaltenNummerAreaCode2&
Set Ws1 = Sheets(1): Set Ws2 = Sheets(2)
LZ1 = Ws1.Cells.SpecialCells(xlCellTypeLastCell).Row        'letze Zeile Sheet 1
LZ2 = Ws2.Cells.SpecialCells(xlCellTypeLastCell).Row        'letze Zeile Sheet 2
For I = 2 To LZ1
For J = 2 To LZ2
If Ws1.Cells(I, SpaltenNummerAreaCode1) = Ws2.Cells(J, SpaltenNummerAreaCode2) Then
Ws1.Cells(I, 2) = Ws2.Cells(J, 3)   'wenn die beiden areaCodes identisch sind, dann  _
andere Zellen vergleichen
If Ws1.Cells(I, 1)  Ws2.Cells(J, 1) Then
MsgBox ("UNTERSCHIED")
End If
End If
Next
Next
End Sub


Gruß
Fritz

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige