Excel, jeweils 2 Spalten einer Tabelle mit mehreren Spalten einer anderen Tabelle zeilenweise vergleichen

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Manné.

    Excel, jeweils 2 Spalten einer Tabelle mit mehreren Spalten einer anderen Tabelle zeilenweise vergleichen

    Hallo liebe Community,

    nach tagelanger Suche wende ich mich an euch und bitte um Hilfe.

    Mein wichtigstes Anliegen ist, 2 Spalten einer Tabelle mit jeweils 2, bzw. mehreren Spalten einer zweiten Tabelle zeilenweise zu vergleichen.
    Die Tabelle "Kundenwünsche sortiert" wird von einem Makro erzeugt, deshalb hilft mir keine bedingte Formatierung.

    Geänderte Datensätze sollten farblich hervorgehoben werden. Bestimmt ist es auch möglich geänderte, neue und weggefallene Datensätze mit bestimmten Farben zu kennzeichnen. Soweit bin ich aber noch lange nicht.

    Mein Makro funktioniert teilweise. Ich verstehe nicht, wieso der Name Huber, der in beiden Tabellen gleich ist, markiert wird.
    Ohne das "On Error..." bekomme ich in der Zeile "KWverk = KW & KW.Offset(0, 1)" die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt". Hat das was mit Huber zu tun?
    Ich glaube es nicht.
    Eine Beispiel-Datei füge ich bei.

    Oh, mit Makro kann ich gar nicht hochladen.
    Hier ist das Makro, das in Modul1 gespeichert ist.


    Visual Basic-Quellcode

    1. Option Explicit
    2. Sub DoppelteKennzeichnen()
    4. ' Farbmarkierung entfernen
    5. Sheets("Kundenwünsche sortiert").Select
    6. Columns("A:B").Select
    7. With Selection.Interior
    8. .Pattern = xlNone
    9. .TintAndShade = 0
    10. .PatternTintAndShade = 0
    11. End With
    12. Range("A1").Select
    14. Dim KWsort As Range
    15. Dim KW As Range
    16. Dim KWsortverk, KWverk ' Zelle A und B verketten
    18. With ThisWorkbook.Sheets("Kundenwünsche sortiert")
    19. For Each KWsort In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row)
    20. KWsortverk = KWsort & KWsort.Offset(0, 1)
    21. ' On Error Resume Next
    22. ' On Error GoTo 0
    23. Set KW = ThisWorkbook.Sheets("Kundenwünsche").Range("A3:K32").Find(What:=KWsort)
    24. KWverk = KW & KW.Offset(0, 1)
    25. On Error Resume Next
    26. ' On Error GoTo 0
    27. If Not KWverk = KWsortverk Then
    28. KWsort.Offset(0, 0).Interior.ColorIndex = 44
    29. End If
    30. Next 'KWsort
    31. End With
    32. End Sub




    Für eure Hilfe bedanke ich mich schon im Voraus.

    Lieber Gruß
    Manfred
    Dateien

    Hallo Manfred
    Der Fehler in Zeile 24 entsteht wenn KW = Nothing ist, also das Find nichts findet.
    Dies kannst du beheben indem du eine Abfrage machst.

    Visual Basic-Quellcode

    1. If Not KW Is Nothing Then
    2. KWverk = KW & KW.Offset(0, 1)
    3. End If

    Den Fehler mit Hubert bekommst du, weil das Find nicht den Hubert findet, sondern den Schubert.
    Dies kannst du beheben indem du das Find mit LookAt:=xlWhole ergänzt.

    Visual Basic-Quellcode

    1. Set KW = ThisWorkbook.Sheets("Kundenwünsche").Range("A3:K32").Find(What:=KWsort, LookAt:=xlWhole)

    Gruss HenryV

    Falls ich das Problem lösen sollte, würde mein Code in etwa so aussehen.
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub AenderungenKennzeichnen()
    5. ' Farbmarkierung entfernen
    6. With Sheets("Kundenwünsche sortiert").Columns("A:B").Interior
    7. .Pattern = xlNone
    8. .TintAndShade = 0
    9. .PatternTintAndShade = 0
    10. End With
    12. With Sheets("Kundenwünsche").Columns("A:K").Interior
    13. .Pattern = xlNone
    14. .TintAndShade = 0
    15. .PatternTintAndShade = 0
    16. End With
    18. Dim KWsort As Range, KW As Range
    19. Dim KWsortverk As String, KWverk As String 'Zelle A und B verketten
    21. With ThisWorkbook.Sheets("Kundenwünsche sortiert")
    22. For Each KWsort In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row)
    23. KWsortverk = KWsort.Value & KWsort.Offset(0, 1).Value 'Zelle A und B verketten
    24. Set KW = ThisWorkbook.Sheets("Kundenwünsche").Range("A3:K32").Find(What:=KWsort, LookAt:=xlWhole)
    26. If Not KW Is Nothing Then
    27. KWverk = KW.Value & KW.Offset(0, 1).Value
    28. If Not KWverk = KWsortverk Then
    29. 'Namen anders (orange)
    30. KWsort.Resize(, 2).Interior.ColorIndex = 44
    31. KW.Resize(, 2).Interior.ColorIndex = 44
    32. Else
    33. 'Namen gleich (grün)
    34. KWsort.Resize(, 2).Interior.ColorIndex = 43
    35. KW.Resize(, 2).Interior.ColorIndex = 43
    36. End If
    37. Else
    38. 'Namen nicht gefunden (rot)
    39. KWsort.Resize(, 2).Interior.ColorIndex = 22
    40. End If
    42. Next 'KWsort
    43. End With
    44. End Sub

    Hey, wie geil ist das denn?
    ...und so einfach.

    Ich hatte mir schon einen anderen Code ausgesucht und versucht umzuschreiben. Das hätte wahrscheinlich noch 2 Tage gedauert. Nicht, weil ich so wenig Zeit am Computer verbringe :)

    Noch nicht perfekt, aber bestimmt ausbaufähig.

    Vielen DANK HenryV

    Lieber Gruß
    Manfred

    Guten Abend HenryV und alle anderen,

    das Makro hab ich ein bisschen abgeändert, die Farben waren ein bisschen zu grell und die grüne Markierung brauche ich nicht.
    Ich habe heraus gefunden wie ich die erste und zweite Spalte ansprechen kann. Das ist aber auch schon alles und evtl. gar nicht notwendig.

    Schön wär es, wenn in der Tabelle "Kundenwünsche sortiert" die fehlenden in orange und die geänderten in gelb angezeigt werden würden, jeweils in der richtigen Spalte.
    In der Tabelle nur die geänderten, jeweils in der richtigen Spalte.

    Visual Basic-Quellcode

    1. Sub AenderungenKennzeichnen()
    2. ' Farbmarkierung entfernen
    3. With Sheets("Kundenwünsche sortiert").Columns("A:B").Interior
    4. .Pattern = xlNone
    5. .TintAndShade = 0
    6. .PatternTintAndShade = 0
    7. End With
    9. With Sheets("Kundenwünsche").Columns("A:K").Interior
    10. .Pattern = xlNone
    11. .TintAndShade = 0
    12. .PatternTintAndShade = 0
    13. End With
    15. Dim KWsort As Range, KW As Range
    16. Dim KWsortverk As String, KWverk As String 'Zelle A und B verketten
    17. With ThisWorkbook.Sheets("Kundenwünsche sortiert")
    18. For Each KWsort In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row)
    19. KWsortverk = KWsort.Value & KWsort.Offset(0, 1).Value 'Kundenwünsche sort. Zelle A und B verketten
    20. Set KW = ThisWorkbook.Sheets("Kundenwünsche").Range("A3:K32").Find(What:=KWsort, LookAt:=xlWhole)
    22. If Not KW Is Nothing Then
    23. KWverk = KW.Value & KW.Offset(0, 1).Value 'Kundenwünsche Zelle A und B verketten
    24. If KWverk <> KWsortverk Then
    25. 'Zusatzinfo geändert (gelb)
    26. KWsort.Resize.Offset(0, 1).Interior.ColorIndex = 36
    27. KW.Resize.Offset(0, 1).Interior.ColorIndex = 36
    28. End If
    29. Else
    30. 'Namen geändert (orange)
    31. KWsort.Resize.Offset(0, 0).Interior.ColorIndex = 40
    32. '' KW.Resize.Offset(0, 0).Interior.ColorIndex = 40
    33. End If
    34. Next 'KWsort
    35. End With
    36. End Sub


    Im Netz kann ich auch leider nichts brauchbares finden.

    LG Manfred
    Dateien

Facebook
Telefonspende