Microsoft Excel

Herbers Excel/VBA-Archiv

Vergleich von zwei Tabellenblättern (zeilenweise) | Herbers Excel-Forum


Betrifft: Vergleich von zwei Tabellenblättern (zeilenweise) von: Himmelsbach
Geschrieben am: 14.10.2008 17:24:38

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:
https://www.herber.de/bbs/user/56022.xls

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

  

Betrifft: AW: Vergleich von zwei Tabellenblättern (zeilenweise) von: EffHa
Geschrieben am: 14.10.2008 18:18:11

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




  

Betrifft: AW: Vergleich von zwei Tabellenblättern (zeilenweise) von: JogyB
Geschrieben am: 14.10.2008 18:27:11

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


  

Betrifft: AW: Vergleich von zwei Tabellenblättern (zeilenweise) von: Ryu
Geschrieben am: 14.10.2008 18:26:05

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


  

Betrifft: AW: Vergleich von zwei Tabellenblättern (zeilenweise) von: Himmelsbach
Geschrieben am: 14.10.2008 18:55:34

Hallo,

Vielen Dank für die Hilfe, die Vorschläge haben mir sehr gut weitergeholfen!

Grüße
Elise


Beiträge aus den Excel-Beispielen zum Thema "Vergleich von zwei Tabellenblättern (zeilenweise)"