Doppelte Werte anzeigen

[Service Plus]

Guten Morgen,
gibt es bitte unter Excel eine Möglichkeit doppelte Werte aus einer Zeile auszulesen?

Also zum Beispiel aus einer Zeile mit den Zahlen 5, 16, 76, 5, 109, 76 sollen die Zahlen 5 und 76, da doppelt ausgelesen
also geschrieben werden. Die Anzeige von Dubletten über bedingte Formatierung ist mir bekannt. 
Es geht hier um das explizite Auslesen.

Gibt es vielleicht sogar die Möglichkeit eine Abweichung (Toleranz) auszulesen, also alle Zahlen die nur 
im Intervall von zum Beispiel 2 abweichen. Also zum Beispiel 16 und 18 sollten dann erkannt und ausgelesen werden.


Vielen Dank für Eure Bemühungen.

[UweD]

Hallo


in ein Modul diesen Code

Code:

Function Doppelte(Zelle As Range, Deli As String)
    Dim Arr, Z, Tmp As Integer, DPL As String
    Arr = Split(Zelle, Deli)
   
    For Each Z In Arr
   
        Tmp = (Len(Zelle) - Len(Replace(Zelle, Z, ""))) / Len(Z)
        If Tmp > 1 And InStr(DPL, Z) = 0 Then DPL = Deli & Z & DPL
       
    Next
    Doppelte = Mid(DPL, 2)
End Function

Im Blatt dann:
wenn dein Text in A2 steht in eine andere Zelle das hier

Code:

=Doppelte(A2;",")

Der erste Parameter bezeichnet die Zelle und der Zweite das Trennzeichen.

____


Den zweiten Teil hab ich nicht verstanden.

Sind die Nummern dann aufsteigend sortiert oder gemixt

Bitte genaueres Beispiel


LG UweD

[Service Plus]

Vielen Dank, Uwe.

Damit komme ich schon gut zurecht.