AW: Vergleich von Eintragungen in zwei Tabellenblä
24.04.2006 16:19:02
Eintragungen
Hallo Ralf,
auf dem Server liegt sie wahrscheinlich, nur muß du nach dem Hochladen den Link kopieren und in deine Antwort enfügen, damit man die Datei per Klick aufrufen kann.
Da du die Tabellen Zelle für Zelle vergleichen willst ist das nicht so problematisch. Mit folgendem Makro geht's.
Sub Tabellenvergleich()
'Vergleich der Zellinhalte zweier Tabellen
Dim Tab1 As Worksheet, Tab2 As Worksheet
Set Tab1 = ThisWorkbook.Sheets("Tabelle1")
Set Tab2 = ThisWorkbook.Sheets("Tabelle2")
'Vorhandenen Farben entfernen
Tab1.Cells.Interior.ColorIndex = xlColorIndexNone
Tab2.Cells.Interior.ColorIndex = xlColorIndexNone
Farbe = 6 ' Gelb, Farbe der unterschiedlichen Zellen
' Ermitteln der mit Daten belegten Spalten und Zeilen in den beiden Tabellen
With Tab1
Spalten1 = .UsedRange.Column + .UsedRange.Columns.Count - 1
Zeilen1 = .UsedRange.Row + .UsedRange.Rows.Count - 1
End With
Zeilen = Zeilen1
Spalten = Spalten1
With Tab2
Spalten2 = .UsedRange.Column + .UsedRange.Columns.Count - 1
Zeilen2 = .UsedRange.Row + .UsedRange.Rows.Count - 1
End With
If Spalten2 > Spalten1 Then Spalten = Spalten2
If Zeilen2 > Zeilen1 Then Zeilen = Zeilen2
'Vergleich der Zellen in den Tabellen
For J = 1 To Spalten
For I = 1 To Zeilen
If Tab1.Cells(I, J) <> Tab2.Cells(I, J) Then
Tab1.Cells(I, J).Interior.ColorIndex = Farbe
Tab2.Cells(I, J).Interior.ColorIndex = Farbe
End If
Next I
Next J
End Sub
Gruß
Franz