Das Archiv des Excel-Forums
Vergleich von Excel Tabellen
Betrifft: Vergleich von Excel Tabellen
von: kappi
Geschrieben am: 19.09.2003 12:42:39
Hallo Leute,
ich hoffe Ihr könnt mir bei meinem Problem helfen.
Ich habe zwei Excel Mappen.
In der einen stehen Auftragsdaten wie Auftragsnummer (A1 bis A704), Sachbearbeiter, Kundennummer und all sowas.
In der zweiten Mappe stehen nur Auftragsnummern (A1 bis A236).
Jetzt soll Excel für mich die Auftragsnummern der zweiten Arbeitsmappe zeilenweise durchgehen und auf Übereinstimmung mit denen der ersten Liste vergleichen.
Sobald eine Auftragsnummer in beiden Mappen vorhanden ist soll Excel diese Zeile in der ersten Mappe irgendwie markieren (geld hinterlegt wäre toll).
Ziel ist es den Bestand an Auftragsdaten zu reduzieren.
Ich hoffe Ihr habt eine Idee ....
Gruß
Kappi
Betrifft: AW: Vergleich von Excel Tabellen
von: xXx
Geschrieben am: 19.09.2003 12:53:53
Hallo,
Liste 2 ist also aktuell?
Dann hol dir doch die restlichen Daten per SVERWEIS aus Tab1, per Kopie und Inhalte einfügen fixieren und dann schmeiß deine Tab1 weg.
Gruß aus'm Pott
Udo
Betrifft: AW: Vergleich von Excel Tabellen
von: Dirk
Geschrieben am: 19.09.2003 13:04:34
Sub vergleich()
Dim i As Integer
Dim j As Integer
i = 1
j = 1
For i = 1 To 704
For j = 1 To 236
If Workbooks("Mappe1.xls").Worksheets("tabelle1").Range("A" & i).Value = Workbooks("Mappe2.xls").Worksheets("tabelle1").Range("A" & j).Value Then
Workbooks("Mappe1.xls").Worksheets("tabelle1").Rows(i).Interior.ColorIndex = 6
End If
Next j
Next i
End Sub
Betrifft: AW: Vergleich von Excel Tabellen
von: kappi
Geschrieben am: 19.09.2003 13:32:24
Hallo Dirk,
ich meine Exceltabellen etwas verändert und dein skript darauf folgendermaßen angepasst:
Sub vergleich()
Dim i As Integer
Dim j As Integer
i = 1
j = 1
For i = 1 To 702
For j = 1 To 236
If Worksheets("mappe1").Range("A" & i).Value = Worksheets("mappe2").Range("A" & j).Value Then
Worksheets("mappe1").Rows(i).Interior.ColorIndex = 6
End If
Next j
Next i
End Sub
Wenn ich das ganze ausführe kann ich mir erst ein paar minuten lang die sanduhr anschauen und dann stürzt excel ab.
woran liegt das denn?
trotzdem schonmal danke für eure lösungen
Betrifft: AW: Vergleich von Excel Tabellen
von: kappi
Geschrieben am: 19.09.2003 13:36:02
Hallo Dirk,
ich meine Exceltabellen etwas verändert und dein skript darauf folgendermaßen angepasst:
Sub vergleich()
Dim i As Integer
Dim j As Integer
i = 1
j = 1
For i = 1 To 702
For j = 1 To 236
If Worksheets("mappe1").Range("A" & i).Value = Worksheets("mappe2").Range("A" & j).Value Then
Worksheets("mappe1").Rows(i).Interior.ColorIndex = 6
End If
Next j
Next i
End Sub
Wenn ich das ganze ausführe kann ich mir erst ein paar minuten lang die sanduhr anschauen und dann stürzt excel ab.
woran liegt das denn?
trotzdem schonmal danke für eure lösungen
Betrifft: AW: Vergleich von Excel Tabellen
von: Dirk
Geschrieben am: 19.09.2003 13:57:02
Sorry. Bei mir läuft das Makro ohne Probleme durch.
Betrifft: AW: Vergleich von Excel Tabellen
von: kappi
Geschrieben am: 19.09.2003 14:02:10
hi dirk,
irgendwie seltsam.
kannst du mir spasseshalber mal die excel datei mit dem makro das du gebaut hast mailen?
michael.kappler@neeflappcom.de
villeicht klappts ja dann ...
... die wege des excel sind unergründlich
Betrifft: AW: Vergleich von Excel Tabellen
von: kappi
Geschrieben am: 19.09.2003 14:06:28
hallo dirk,
habs gerade auf meinem notebook versucht ...
... da gehts
Super geil!
Vielen Dank
Betrifft: AW: Vergleich von Excel Tabellen
von: Dirk
Geschrieben am: 19.09.2003 14:13:33
Super. Wollte schon zweifeln. Schönes WE
Excel-Beispiele zum Thema " Vergleich von Excel Tabellen"