2 Spalten vergleichen, gleiche Datensätze in Spalte 2 farblich hervorheben

  • #1
J

JonnyHeart

Aktives Mitglied
Themenersteller
Dabei seit
12.01.2005
Beiträge
31
Reaktionspunkte
0
VBA PROB:

Info. Ich habe 2 Sheets, einer heißt X der zweite Y.

Es soll folgendes durch das Makro erledigt werden.

Vergleich von sheet X , Spalte B ab Zeile 2 bis Ende mit sheet Y Spalte B ab Zeile 2 bis Ende

--> Ergebnis: alle Namen die in beiden sheets vorhanden sind werden in sheet Y gelb markiert.

PROBLEM: das klappt wunderbar, wenn in den sheets Zahlen (1 bis 1000000000) oder ein Kleinbuchstaben bzw. Wörter in Kleinbuchstaben hallo oder auch hallo 123 vorhanden sind.

Enthalten die Sheets nur Text in Großbuchstaben, wie etwa Namen MÜLLER, MAYER un SCHULZE passiert nichts...trotz übereinstimmung wird keiner der namen in sheet Y gelb markiert ????





---> TEILLÖSUNG GEFUNDEN...Mit Zahlen klappt´s mit NAMEN in den beiden Spalten nicht !!
Wo liegt das Problem ??


Private Sub CommandButton1_Click()
'Vergleicht die Spalte B des Tabellenblattes 1 mit der Spalte B des Tabelenblattes 2 _
und markiert die doppelten Werte in Hellgelb

Dim i As Variant, j As Variant //ist hier etwas falsch ???? hab schon string usw. getestet...ging auch nicht !

'Festlegen der Variabeln

EndeA = Worksheets(X).Cells(Rows.Count, 2).End(xlUp).Row
'legt das Ende des ersten Bereiches fest
EndeB = Worksheets(Y).Cells(Rows.Count, 2).End(xlUp).Row
'legt das Ende des zweiten Bereiches fest
For i = 2 To EndeA
'beginnt bei Zelle 2 und hört bei der letzten ausgefüllten Zelle des Bereiches auf
For j = 2 To EndeB
If Sheets(X).Cells(i, 2) = Sheets(Y).Cells(j, 2) Then _
Sheets(Y).Cells(j, 2).Interior.ColorIndex = 19

'Fortsetzen der Schleife
Next j
Next i

End Sub
 
Thema:

2 Spalten vergleichen, gleiche Datensätze in Spalte 2 farblich hervorheben

ANGEBOTE & SPONSOREN

Statistik des Forums

Themen
113.840
Beiträge
707.963
Mitglieder
51.494
Neuestes Mitglied
Flensburg45
Oben