AW: Matrix aus Tabelle
25.10.2016 19:56:50
Michael
Hi,
das hier hilft Dir vielleicht weiter:
Sub MalSehen()
Dim Bereich As Range, c As Range, i&
Dim o As Object
Set o = CreateObject("scripting.dictionary")
Set Bereich = Intersect(ActiveSheet.UsedRange, Columns(1))
For Each c In Bereich
If c.Value "" Then o(c.Value) = c.Address(0, 0)
Next
Set Bereich = ActiveSheet.UsedRange
Set Bereich = Bereich.Offset(, 2)
' Set Bereich = Bereich.Resize(, -2)
i = 1
For Each c In Bereich
If o.exists(c.Value) Then
c.Interior.Color = vbYellow ': MsgBox c.Address: Stop
' Das hier erfordert das Vorhandensein einer Tabelle1:
' Tabelle1.Range("A" & i) = o(c.Value)
' Tabelle1.Range("B" & i) = c.Address(0, 0)
' Tabelle1.Range("C" & i) = c.Row
i = i + 1
End If
Next
MsgBox i
End Sub
Alle Texte, die in Spalte A vorhanden sind, werden erst mal "geladen", und wenn einer ab Spalte C auch vorkommt, wird er gelb markiert: ich denke, Du willst nur Doppelte aussortieren, oder?
Die drei auskommentierten Zeilen unten erfordern eine Tabelle1 - das kannst Du durch ein anderes, leeres, vorhandenes Blatt ersetzen á la Sheets("dasolleshin").Range("A" & i) = o(c.Value) usw.
Hilft Dir das?
Gruß,
Michael