---

Vergleichen.JPG

Alter Typ, neues Problem 

Ich habe eine Tabelle voll mit Werten.
Die werte Stammen aus 2 Quellen.
Per Sortierung habe ich die Daten Zeilenweise nach unten nebeneinader gelegt.
In der ersten Spalte sehe ich ob ein Datensatz aus beiden Quellen vorhanden ist (2 Identische Werte besthend aus 8Stelliger Zahl und einem Buchstaben am Ende(nicht wie im Beispiel))

Jetzt hätte ich gern das, "WENN" 2 Zellen aus der Spalte A übereinstimmen, und nur dann, die dazugehörigen Zeilen Spaltenweise verglichen werden.
Die unterschiedlichen Zellen sollten dann am besten Farblich gekennzeichnet werden.

Ich habe schon ne weile drüber nachgedacht und auch gegoogelt, aber es kommt mir so vor als ginge das nicht ohne VBA 

=KANN(mir_das_jemand_als_VBA_zur_vefügung_stellen?;ODER(kennt_jemand_eine_Funktionskombi_dafür?)) 

Habe knapp 10.000 Datensätze zu Vergleichen, das sind laut Excel in meinem Fall 187.128 Zellen die ich Optisch vergleichen muss *aaaahhh augenkrebs*

Ahja, fast vergessen so ne Zelle kann auch ma leer sein... wenn da ne andere Farbe ginge? also unterschied von abc zu abb = blau --> unterschied von abb zu "leer" = orange ....??? Das stufe ich allerdings als Luxus ein.

Gibt auch n Bier für selbstabholer bei erfolg 

Grüße Corax

------------------
Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sub markieren()
    Dim r As Long
    Dim c As Integer

    r = 1
    While Cells(r, 1) <> ""
        If Cells(r, 1) = Cells(r + 1, 1) Then ' Zwei gleiche Werte in A
            For c = 2 To 256
                If Cells(r, c) <> Cells(r + 1, c) Then ' Zellen sind unterschiedlich
                    If Cells(r, c) = "" Then
                        Cells(r + 1, c).Interior.ColorIndex = 41
                        Cells(r + 1, c).Interior.Pattern = xlSolid
                    ElseIf Cells(r + 1, c) = "" Then
                        Cells(r, c).Interior.ColorIndex = 41
                        Cells(r, c).Interior.Pattern = xlSolid
                    Else
                        Cells(r, c).Interior.ColorIndex = 44
                        Cells(r, c).Interior.Pattern = xlSolid
                        Cells(r + 1, c).Interior.ColorIndex = 44
                        Cells(r + 1, c).Interior.Pattern = xlSolid
                    End If
                End If
            Next c
            r = r + 1
        End If
        r = r + 1
    Wend
End Sub

Farben kannst Du ja noch ändern...

Mathias

P.S.: Wo kann ich das Bier abholen ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hammerstark, hast ne pm für die adresse 

------------------
Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP