In einem Tabellenblatt stehen in unterschiedlichen Zellen, ein oder auch mehrere Wörter.
Ich möchte das mittels eines Makro alle doppelten Wörter in dem Tabellenblatt gelöscht werden.
Kann mir jemand den Code dafür nennen?
Danke und Gruß
Michael
Sub test()
Dim x As Range
y_count = 0
ReDim y_list(y_count) As String
For Each x In ActiveSheet.UsedRange
x.Select
If x.text "" Then
If IsInList(x.text) Then
x.Interior.Color = RGB(255, 0, 0)
Else
Call PutInList(x.text)
End If
End If
Next
End Sub
Sub PutInList(ByVal text As String)
y_count = y_count + 1
ReDim Preserve y_list(y_count)
y_list(y_count) = text
End Sub
Function IsInList(ByVal text As String) As Boolean
Dim i As Long
IsInList = False
If y_count > 0 Then
For i = 1 To y_count
If y_list(i) = text Then
IsInList = True
End If
Next i
End If
End Function
Wie gesagt, insbesondere die "Listenverwaltung" hat ihren Namen nicht verdient, tut's jedoch für nicht zu große Arbeitsblätter auch so.
Gruß Harald