Moin,

öffnen, reinsehen, vergleichen. Oder worum ging es dir?

Gruß
Pausenfüller

hallo,

einfach vergleichen, dann wirst du die Unterschiede feststellen.

Gruß

Helmut

p.s. Leider sind deine Angaben in keinster Weise, für eine vernüftige Hilfe ausreichend. Stell dir mal vor du würdest an unserer Stelle sitzen und überlege mal was du mit den Angaben in der Anfrage anfangen könntest

*lach* Ja das ist das einfache, aber leider steht zu viel drin in den Tabellen. Muss irgendwie Software sein. Ob intern oder extern keine Ahnung.

Axo. Was musste denn wissen? Ich habe Excel 97. Ich weiss schon ziehmlich alt. :(

Hallo,

anscheinend hast du meinen Hinweis der als P.S. steht nicht verstanden. Das ist durchaus möglich aber da du uns keine Angaben zu deinen Tabellen machst, wird es wohl nicht all zu viel Hilfe geben

Gruß

Helmut

als Word DOC umwandeln und dann dort mit der Vergleichsfunktion anschauen

oder als Text speichern und mit Windiff

Sorry aber ich weiss was du meinst. Was für Angaben brauchst du zu den Tabellen? Ich kenne mich nicht aus. Für mich sind es ganz normale Exceltabellen. Das Layout ist gleich, das kann man sehen, aber ob alle Werte gleich sind das ist die Frage.

Gute Idee. Aber er kann immer nur eine Seite abspeichern. Wie kann man alles speichern?

hallo,

seh mal in den Pager.

Gruß

Helmut

hi all :-)

hier ein beispiel,bezogen auf eine mappe und 2 tabellen

gruss nighty

vergleich arbeitet folgendermassen

ausgehend von spalte a wird entschieden ob eine zeile fehlt oder nicht

sollte spalte a nicht identisch sein wird die ganze zeile rot markiert

sollte spalte a identisch sein werden weitere unterschiede in den naechsten spalten mit gelb gekennzeichnet in wechselwirkung

sollte der vergleich bei 2 mappen und jeweils eine tabelle verglichen werden,ist dies leicht zu korrigieren

ausgehend von 2 mappen die geöffnet sein sollten

vor Sheets(1) den ersten mappennamen einsetzen,wie z.b. Workbooks(1).

vor Sheets(2) den zweiten mappennamen einsetzen,wie z.b. Workbooks(2). und dazu aus Sheets(2) zu Sheets(1) aendern

ergaenzend noch den hinweis,das geschuetzte bereiche wie verkettungen nicht erlaubt sind,desweiteren durch das array einiges an speicher drauf geht

wobei ich glaube das es auch mit excel eigenen mitteln geht,ich glaub mit Daten/konsolodierung,ich arbeite ja mit excel nicht :-))

Option Explicit
Sub vergleich()
Dim w1x As Integer, w2x As Integer, w3x As Integer, zaehler1 As Integer
Dim w1y As Long, w2y As Long, w3y As Long, zaehler0 As Long
Dim suche1, suche2 As Range
w1x = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
w1y = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
w2x = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Column
w2y = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If w1x > w2x Then
w3x = w1x
Else
w3x = w2x
End If
If w1y > w2y Then
w3y = w1y
Else
w3y = w2y
End If
ReDim excel1(w3y, w3x) As Variant
ReDim excel2(w3y, w3x) As Variant
Sheets(2).Select
excel2() = Range(Cells(1, 1), Cells(w3y, w3x))
Sheets(1).Select
excel1() = Range(Cells(1, 1), Cells(w3y, w3x))
For zaehler0 = 2 To w3y
Set suche1 = Sheets(2).Range("A1:A" & w3y).Find(excel1(zaehler0, 1), Lookat:=xlWhole)
Set suche2 = Sheets(1).Range("A1:A" & w3y).Find(excel2(zaehler0, 1), Lookat:=xlWhole)
If Not suche1 Is Nothing Then
For zaehler1 = 2 To w3x
If excel1(zaehler0, zaehler1) <> "" And excel1(zaehler0, zaehler1) <> excel2(suche1.Row, zaehler1) Then
Sheets(1).Cells(zaehler0, zaehler1).Interior.ColorIndex = 6
End If
Next zaehler1
Else
Sheets(1).Range(Sheets(1).Cells(zaehler0, 1), Sheets(1).Cells(zaehler0, w3x)).Interior.ColorIndex = 3
End If
If Not suche2 Is Nothing Then
For zaehler1 = 2 To w3x
If excel2(zaehler0, zaehler1) <> "" And excel2(zaehler0, zaehler1) <> excel1(suche2.Row, zaehler1) Then
Sheets(2).Cells(zaehler0, zaehler1).Interior.ColorIndex = 6
End If
Next zaehler1
Else
Sheets(2).Range(Sheets(2).Cells(zaehler0, 1), Sheets(2).Cells(zaehler0, w3x)).Interior.ColorIndex = 3
End If
Next zaehler0
End Sub

Eigentlich bräucht ich 2 Mappen mit sämtlichen Tabellen. Aber ich probier mal aus.

Diese Meldung kommt für diese Zeile:
excel2() = Range(Cells(1, 1), Cells(w3y, w3x))

Vielleicht liegt es auch an mir, das ich irgend was falsch gemacht habe. Ich kenne mich mit Excel nicht aus.

Ok. Problem ist gelöst. Man kann mit VBA alle Seiten in Excel einzeln als CSV abspeichern und dann eine Textdatei draus machen. Z.b.als XML. Dann geht das Vergleichen so wie Steffen gesagt hat.