@ Sepp: Help Help!
Claudia
darf ich noch einmal Deine Hilfe in Anspruch nehmen?
Ich habe derzeit folgendes Makro zur Unterstützung.
Private Sub Spaltenvergleich_mit_Farbe()
'Vergleicht die Spalte A des Tabellenblattes 1 mit der Spalte 1 des Tabelenblattes 2 und _
markiert die doppelten Werte in rot
Dim arr1, arr2, i As Long, j As Long, k As Long, EndeA As Long, EndeB As Long
EndeA = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
EndeB = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row
With ActiveWorkbook.Worksheets(1)
arr1 = .Range(.Cells(1, 1), .Cells(EndeA, 1))
End With
With ActiveWorkbook.Worksheets(2)
arr2 = .Range(.Cells(1, 1), .Cells(EndeB, 1))
.Range(.Cells(1, 1), .Cells(EndeB, 1)).Interior.ColorIndex = xlNone
End With
For i = LBound(arr1) To UBound(arr1)
If i Mod 1000 = 0 Then Application.StatusBar = i & " Datensätze wurden verglichen"
For j = LBound(arr2) To UBound(arr2)
If Trim$(arr1(i, 1)) = Trim$(arr2(j, 1)) Then
ActiveWorkbook.Worksheets(2).Cells(j, 1).Interior.ColorIndex = 3
k = k + 1
Exit For
End If
Next
Next
MsgBox k & " doppelte Datensätze wurden gekennzeichnet", 64, "Fertig"
Erase arr1
Erase arr2
Set arr1 = Nothing
Set arr2 = Nothing
Application.StatusBar = False
End Sub
Das Makro macht also einen Vergleich zwischen Reiter 1 und 2 der Arbeuitsmappe und färbt die Zellen, die in beiden Listen vorkommen, rot.
Ich hätte gerne eine wesentlich flexiblere Lösung. Kannst Du was machen und hast Lust?
Aufruf über Userform
Über Userform Auswahl der beiden Tabellen, die gegeneinander geprüft werden sollen. Angabe der Spalte, die jeweils geprüft werden soll. Wenn möglich auch hier flexibel für beide Reiter. Ergebnis soll dann nicht farbig sein, sondern Wert: Enthalten in Reiter ....... Die Ausgabespalte soll auswählbar sein.
Könntest Du mir hier was nettes zaubern?
Vielen lieben Dank!
Liebe Grüße
Claudia