Doppelte Werte anzeigen
#1
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.
Antworten Top
#2
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
Antworten Top
#3
Vielen Dank, Uwe.

Damit komme ich schon gut zurecht.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste