ist es möglich Kommentare in ungeschützte Zellen einer ansonsten geschützen Tabelle einzufügen?
Ich denke nein, will mich aber noch mal Rückversichern.
Gruß 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