die Datenüberprüfung von Excel hilft mir nicht, ich brauche VBA Code.
Wie kann ich aus diesem Bereich die nicht redundanten Werte auslesen, Beispiel:
AT
AT
AT
GB
GB
Ich möchte nun in einer Zelle ATGB stehen haben.
Wie geht sowas?
Sub test()
Dim rngCell As Range
Dim strTemp As String
For Each rngCell In Range(Cells(1, 1), Cells(4, 1))
If InStr(strTemp, rngCell.Value) = 0 Then strTemp = strTemp & "|" & rngCell.Value
Next
Range(Cells(1, 1), Cells(4, 1)).ClearContents
Cells(1, 1) = Replace(strTemp, "|", "")
End Sub
Gruß Gerd