Blätter oder Dateien mit einem Blatt vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

das Makro musst du noch entsprechend den Variablen anpassen, aber dann sollte es laufen

Sub Compare_Cells()
Dim wb1 As Workbook, wb2 As Workbook
Dim wks1 As String, wks2 As String
Dim c As Range, c2 As String
Set wb1 = Workbooks("Mappe1.xls") 'Referenztabelle
Set wb2 = Workbooks("Mappe2.xls") 'Vergleichtabelle
wks1 = "Tabelle1" 'Referenztabelle
wks2 = "Tabelle1" 'Vergleichtabelle
wb1.Worksheets(wks1).Cells.CurrentRegion.Select
For Each c In Selection
    c2 = c.Address
    If c.Value <> wb2.Worksheets(wks2).Range(c2).Value Then
        c.Interior.ColorIndex = 6
    End If
Next
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Unterschiedliche zellen werden GELB markiert

Gruss Rainer

Sub Compare_Cells() Dim wb1 As Workbook, wb2 As Workbook Dim wks1 As String, wks2 As String Dim c As Range, c2 As String Set wb1 = Workbooks("Mappe1.xls") 'Referenztabelle Set wb2 = Workbooks("Mappe2.xls") 'Vergleichtabelle wks1 = "Tabelle1" 'Referenztabelle wks2 = "Tabelle1" 'Vergleichtabelle For Each c In Selection c2 = c.Address If c.Value <> wb2.Worksheets(wks2).Range(c2).Value Then c.Interior.ColorIndex = 6 End If Next End Sub

"Deine Darstellung wird immer konfuser."
Ja, kann ich nachvollziehen. Das Thema ist recht komplex und erst recht mit Worten zu beschreiben.

Wenn ich es richtig verstanden habe, wird mit
"wb1.Worksheets(wks1).Cells.CurrentRegion.Select "
von $A$1 aus ein Array selektiert.
Um die Zeilenzahl dieses Arrays zu bestimmen, sucht Excel nach der ersten leeren Zeile und verwendet z-1.
Um die Spaltenzahl dieses Arrays zu bestimmen, sucht Excel nach der ersten leeren Spalte und verwendet s-1.
Das selektierte Array ist also von $A$1 bis $(s-1)$(z-1).

"...Immer in der 7. Zeile ist garantiert in jeder Spalte ein Eintrag...."
Soll heißen, daß in der 7. Zeile nachgesehen werden könnte, wieviele Spalten es sind, da die erste leere Spalte in dieser Zeile ausserhalb des interessanten Bereichs liegt.

"...Allerdings habe ich keine Spalte, in der immer ein Eintrag ist..."
Soll heißen, daß nicht z.B. in der 2. Spalte nachgesehen werden könnte, wieviele Zeilen es sind, da der interessante Bereich evtl. weiter geht als die erste leere Zeile.

Falls es für die leeren Zeilen bzw. Spalten keine Lösung gibt, werde ich versuchen die Tabelle vor dem Vergleich mit einer redundaten Spalte zu füllen, die einfach nur irgend ein Zeichen enthält (z.B. "x"), um diese Spalte nach dem Vergleich wieder zu löschen.
Aber hier beginnt halt wieder das Tricksen...

Nochmals vielen, vielen Dank. Das Makro zu editieren ging deutlich schneller als auch nur eine Tabelle manuell zu vergleichen!
Dank auch im Namen meiner Augen ;-)

Georg

Beliebteste Forumthreads (12 Monate)

Blätter oder Dateien mit einem Blatt vergleichen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blätter oder Dateien mit einem Blatt vergleichen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread