Clever-Excel-Forum

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.

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

Vielen Dank, Uwe.

Damit komme ich schon gut zurecht.

Service Plus

UweD

Service Plus