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.
Für eure Hilfe bedanke ich mich schon im Voraus.
Lieber Gruß
Manfred
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
- Option Explicit
- Sub DoppelteKennzeichnen()
- ' Farbmarkierung entfernen
- Sheets("Kundenwünsche sortiert").Select
- Columns("A:B").Select
- With Selection.Interior
- .Pattern = xlNone
- .TintAndShade = 0
- .PatternTintAndShade = 0
- End With
- Range("A1").Select
- Dim KWsort As Range
- Dim KW As Range
- Dim KWsortverk, KWverk ' Zelle A und B verketten
- With ThisWorkbook.Sheets("Kundenwünsche sortiert")
- For Each KWsort In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row)
- KWsortverk = KWsort & KWsort.Offset(0, 1)
- ' On Error Resume Next
- ' On Error GoTo 0
- Set KW = ThisWorkbook.Sheets("Kundenwünsche").Range("A3:K32").Find(What:=KWsort)
- KWverk = KW & KW.Offset(0, 1)
- On Error Resume Next
- ' On Error GoTo 0
- If Not KWverk = KWsortverk Then
- KWsort.Offset(0, 0).Interior.ColorIndex = 44
- End If
- Next 'KWsort
- End With
- End Sub
Für eure Hilfe bedanke ich mich schon im Voraus.
Lieber Gruß
Manfred