Hallo
hier ist so ein kleines Programm in dem Zellen miteinander verglichen werden usw.
m = 2
n = 3
Do While Cells(m, 1) <> ""
For w = 1 To 30
If Cells(m, 1) = Cells(n, 1) Then
Cells(1, 6) = Cells(m, 3)
Cells(1, 5) = Cells(n, 3)
Cells(m, 3) = Cells(1, 7)
Cells(n, 50) = "doppelt"
End...