Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich von zwei Tabellenblättern (zeilenweise)

Vergleich von zwei Tabellenblättern (zeilenweise)
14.10.2008 17:24:38
zwei
Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll 2 Tabllenblätter zeilenweise miteinander vergleichen.
Wenn der Inhalt der Zeile 1 A1-P1 (Tabelle1) mit dem Inhalt der 1. Zeile A1-P1 (Tabelle 2) übereinstimmen, soll mit der Prüfung der 2. Zeile fortgefahren werden. Ansonsten ist die betreffende Zeile in Tabelle 1 rot zu markieren. Es sind keine Leerzeilen in den zu prüfenden Zeilen enthalten.
Anbei eine Beispieldatei:

Die Datei https://www.herber.de/bbs/user/56022.xls wurde aus Datenschutzgründen gelöscht


Ich hoffe es könnte mir jemand einen Tipp geben, wie ich diesen Abgleich am einfachsten machen kann.
Dir Orginaldateien haben leider mehrere tausend Zeilen, so dass ein manueller Abgleich nicht möglich ist.
Viele Dank für eure Hilfe.
Grüße Elise

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von zwei Tabellenblättern (zeilenweise)
14.10.2008 18:18:11
zwei
Hallo Elise,
hier der Code

Sub Vergleichen()
Dim I&, J&, X&, LZ2&, LZ1&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Set Ws1 = Sheets(1): Set Ws2 = Sheets(2)
LZ1 = GetLastRow(Ws1, "A")      'letze Zeile Sheet 1
LZ2 = GetLastRow(Ws2, "A")        'letze Zeile Sheet 2
For I = 2 To LZ1
For J = 1 To 16
If Ws1.Cells(I, J)  Ws2.Cells(I, J) Then
Ws1.Rows(I).Interior.ColorIndex = 3
Exit For
End If
Next
Next
End Sub




Function GetLastRow(Ws As Worksheet, Spalte$) As Long
Spalte = UCase(Spalte & "65536")
GetLastRow = Ws.Range(Spalte).End(xlUp).Row
End Function


Anzeige
AW: Vergleich von zwei Tabellenblättern (zeilenweise)
14.10.2008 18:27:11
zwei
Die letzte Zeile würde ich eher mit
Ws.Cells(1, 1).SpecialCells(xlLastCell).Row
bestimmen, da nicht klar ist, wie die Spalten gefüllt sind.
Gruss, Jogy
AW: Vergleich von zwei Tabellenblättern (zeilenweise)
14.10.2008 18:26:05
zwei
Hallo Elise,
anbei dein Beispiel mit dem Code. Du brauchst nur noch das Makro auszuführen
https://www.herber.de/bbs/user/56023.xls
Gruss Ryu
AW: Vergleich von zwei Tabellenblättern (zeilenweise)
14.10.2008 18:55:00
zwei
Hallo,
Vielen Dank für die Hilfe, die Vorschläge haben mir sehr gut weitergeholfen!
Grüße
Elise

304 Forumthreads zu ähnlichen Themen

Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Anzeige
Vergleich zweier Tabellen mit Isolierung von Daten
Daten

Hallo,
ich habe zwei Tabellen.
Die erste Tabelle ist eine Liste mit ca. 20.000 Datensätzen, die Daten nach Ortsschlüssel, Produktnummer und Vertriebsweg enthalten.
Die zweite Tabelle ist eine Kreuztabelle mit Referenzwerten nach Produktnummer und Vertriebsweg. Die Produktnummern ste...
18.09.2008 14:30:00
Thread-ID: 1010741
3 Beiträge
Vergleich von Tabellen
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 e...
22.09.2008 15:29:00
Thread-ID: 1011502
2 Beiträge
Anzeige
Vergleich in zwei Tabellenblättern
tuska

Hallo,
ich habe die Forumssuche schon benutzt bitte aber trotzdem um Hilfe bei folgendem Problem, uzw.
Tabellenblatt 1: in Spalte X habe ich den Zellinhalt von Spalten C5&S5 verbunden (Text u. Zahlen)
Tabellenblatt 2: in Spalte AQ habe ich die Zellen B2&AP2 verbunden (Text u...
20.10.2008 00:22:04
Thread-ID: 1017550
9 Beiträge
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
4 Beiträge
Zwei Tabellen vergleichen
Manfred

Hallo zusammen,
ich habe mal wieder ein Problem.
Ich bekomme von u.g. Code einen Indexfehler.
Ich finde den Fehler nicht. Kann mir jemand helfen ? Oder gibts ne andere Lösung.
Sub Tab1_zu_Tab2_vergleichen2() 'vergleicht Alphanumerische Werte Tab1, Sp.B mit Alphanumerieschewert...
05.11.2008 11:43:00
Thread-ID: 1021820
16 Beiträge
zwei tabellen vergleichen
kalle

hallo leute,
ich hoffe mir kann jemand helfen den ich kann kein vba.
ich habe folgende situation:
1.) ich habe zwei tabellen und möchte das zeilen (außer spalte E) die in tabelle1 aber nicht in tabelle2 vorhanden sind in tabelle3 eingetragen werden
2.) möchte ich zeilen die in t...
04.01.2009 13:48:46
Thread-ID: 1036719
4 Beiträge
Inhalt von zwei Tabellen zusammenführen
zwei

Hallo,
ich habe zwei Tabellenblätter.
Tabelle1 mit den Spalten "Kundennummer" und "Geburtstag"
Tabelle2 mit den Spalten "Kundennummer" und "Umsatz".
Die "Umsatz"-Spalte der Tabelle2 sollten in der Tabelle1 hinter der korrekten "Kundennummer" und hinter dem "Geburtstag" in einer...
05.01.2009 17:11:00
Thread-ID: 1037041
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
1
7
8
3
15
3
7
5
8
3
2
7
12
1
5
4
1
4
1
4
4
2