Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleichen

Forumthread: Spalten vergleichen

Spalten vergleichen
Unwissender
Hallo Zusammen
ok ok das Thema gibt es schon .... aber ich finde nicht das richtige (möglicherweise bin ich auch zu ungeduldig)
.... A B E R ich hab' ja Euch und bestimmt eine schnelle Lösung.
Ich habe 2 Spalten B7:Bxx und D7:Dxx
Jetzt soll folgendes passieren:
Vergleiche jeder Zelle in B7:Bxx (aber nur die 1'ten 8 Zeichen!) mit D7:Dxx
und färbe DIE Zelle in z.B. ROT die in D7:Dxx NICHT vorkommt.
Dann: Vergleiche jede Zelle in D7:Dxx und färbe die NICHT in B7:Bxx vorkommen.
Eigentlich ganz einfach..... wenn man(n) VBA im Griff hat :-)
Vielleicht kann mir jemand helfen.
Schon mal vielen Dank
Chris.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten vergleichen
29.09.2009 21:52:39
Peter
Hallo Chris,
so sollte es funktionieren:
Option Explicit
Public Sub Abgleich()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
For lZeile = 7 To .Cells(Rows.Count, 2).End(xlUp).Row
If Application.WorksheetFunction.CountIf(.Range("D7:D" & _
.Cells(Rows.Count, 4).End(xlUp).Row), .Cells(lZeile, 2).Value) = 0 Then
.Cells(lZeile, 2).Interior.ColorIndex = 3
Else
.Cells(lZeile, 2).Interior.ColorIndex = 2
End If
Next lZeile
For lZeile = 7 To .Cells(Rows.Count, 4).End(xlUp).Row
If Application.WorksheetFunction.CountIf(.Range("B7:B" & _
.Cells(Rows.Count, 2).End(xlUp).Row), .Cells(lZeile, 4).Value) = 0 Then
.Cells(lZeile, 4).Interior.ColorIndex = 3
Else
.Cells(lZeile, 4).Interior.ColorIndex = 2
End If
Next lZeile
End With
End Sub

Gruß Peter
Anzeige
AW: Spalten vergleichen
29.09.2009 22:20:28
Unwissender
Hallo Peter
ich werd' bekloppt :-)))
SUPER einfach genial !
Ich bin Dir sehr dankbar!
Gruß
Chris.
AW: Spalten vergleichen
29.09.2009 22:06:55
Christian
Hallo Chris,
wenn du VBA nicht im Griff hast, dann mach's doch mit 'ner Formel.
siehe zB die unterste Matrix-Formel in:
http://www.excelformeln.de/formeln.html?welcher=36
farbig wird's dann per bedingter Formatierung.
Gruß
Christian
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige