AW: Kommentar in ungeschützte.............
09.10.2006 20:32:13
Alex
Hi Sonnenpeter,
Sub Compare()
Dim rng As Range
Dim iRngALastIndex As Integer
Dim iRngBLastIndex As Integer
Dim iResultCounter As Integer
Dim compareValue As Variant
Dim i As Integer
Dim y As Integer
Dim b As Boolean
' Bereiche von Saplten A und B festlegen
Set rng = Me.Range("A65536")
iRngALastIndex = rng.End(xlUp).Row
Set rng = Me.Range("B65536")
iRngBLastIndex = rng.End(xlUp).Row
' Spalte A mit B vergleichen
For i = 1 To iRngALastIndex
compareValue = Me.Cells(i, 1).Value
b = False
For y = 1 To iRngBLastIndex
If Me.Cells(y, 2).Value = compareValue Then
b = True
Exit For
End If
Next
If Not b Then
iResultCounter = iResultCounter + 1
Me.Cells(iResultCounter, 3).Value = compareValue
End If
Next
' Spalte B mit A vergleichen
For i = 1 To iRngBLastIndex
compareValue = Me.Cells(i, 2).Value
b = False
For y = 1 To iRngALastIndex
If Me.Cells(y, 1) = compareValue Then
b = True
Exit For
End If
Next
If Not b Then
iResultCounter = iResultCounter + 1
Me.Cells(iResultCounter, 3).Value = compareValue
End If
Next
End Sub
Das wäre das, was du möchtest.
Gruss Alex