Guten Tag,

Ich habe für eine Mittarbeiterin ein Formular im Excel erstellt dass es ihr erlauben soll 2 dokumente miteinander zu vergleichen.

Dokument 2 beinhaltet ca. 1500 Zelleilen mit verschiedenen Dokumenten Kennungen und ähnlichem, diese Zeilen sind jedoch über mehrere Worksheets verteilt. Das andere Dokument ist eine Liste mit den für sie relevanten Daten. Wichtig für den Vergleich sind 3 Spalten (Dokumenten Kennung, Version und Status).

Beispiel:

Also habe ich mich an die Arbeit gemacht und einen kleinen Vergleich geschrieben.

Do
        If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = "" Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = "tbd" Then
            x = x + 1
        Else
            If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("B" & y)) Then
            
                If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("C" & y)) Then
                
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x).Select
                    Selection.Interior.ColorIndex = 3
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 46
                End If
                
                If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("E" & y)) Then
                
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x).Select
                    Selection.Interior.ColorIndex = 3
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 46
                End If
                
                x = x + 1
                y = 2
                
            Else
                y = y + 1
                If y > maxy Then
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 3
                    y = 2
                    x = x + 1
                End If
            End If
        End If
        Loop Until x = maxx

Funktioniert soweit alles ganz ausgezeichnet. Jedoch möchte die Kollegin nicht dass die Änderungen im Dokument02 markiert werden sondern im dokument01 leider hat aber dieses dokument01 4 verschiedene worksheets und ich weiss einfach nicht wie ich das am einfachsten hinbekommme.