Idee: Wie aus einem Bereich mehrfach Werte löschen

Forumthread: Idee: Wie aus einem Bereich mehrfach Werte löschen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Idee: Wie aus einem Bereich mehrfach Werte löschen

Holger

Hallo,
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?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Idee: Wie aus einem Bereich mehrfach Werte löschen

Gerd
Wahnsinn!

Holger

AW: Idee: Wie aus einem Bereich mehrfach Werte löschen

17.06.2010 22:29:15

Gerd

Guten Abend Holger!

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

Wahnsinn!

17.06.2010 22:33:00

Holger

Hi Gerd,
an einer Beispielmappe getestet und es geht!!!
Vielen Dank, jetzt muss ich noch den Code durchkauen, um ihn auch zu verstehen!