EXCEL - Funktion um doppelte Einträge zu überprüfen

[el_espiritu]

Hallo Leute!
Ich benötige folgende EXCEL Funktion:

Beispiel:
Die Funktion soll mit aus einem Feld bzw. einem Bereich aus mehreren Feldern mit den Werten (1,2,2,3,4,5,5,6,...) alle doppelten Werte anzeigen. Also in diesem Falle "2" und "5".

Gibt es so eine Funktion?

[el_espiritu]

Hmm, weiß echt keiner von euch?  :D

[Hackfresse]

Das geht auf jeden Fall über Formeln...wühl dich da mal durch. In Excel kann man auch Formel selber erstellen...bin da aber nicht DER Experte.

[rs007]

Hallo

-> http://www.contextures.com/xlCondFormat03.html

Use conditional formatting to highlight duplicate entries in a column:

   1. Select range A2:A11
   2. Choose Format|Conditional Formatting
   3. From the first dropdown, choose Formula Is
   4. For the formula, enter
      =COUNTIF($A$2:$A$11,A2)>1
   5. Click the Format button.
   6. Select a font colour for highlighting.
   7. Click OK, click OK

Im deutschen Excel mußt halt "CountIf" durch "ZählenWenn" ersetzen.

Andere Methode: einfach die Werte sortieren, da siehst ja sofort die doppelten Werte

Gruß

[el_espiritu]

Danke für den Tip. Aber die Formel funktioniert nicht.....
Werte sortieren funzt nicht bei dem was ich vorhab, das wär ja zu einfach  :icon_lol:

[rs007]

komisch, funzt bei mir prima
dann schreib einfach ein Macro, das kannst du auch besser an deine Bedürfnisse anpassen

Tools->Macro->Visual Basic Editor
hiermit werden alle mehrfach vorkommenden Einträge einer column rot markiert (du mußt den Bereich, den du untersuchen willst, vorher selektieren):

Option Explicit

Sub DuplicatesRed()

    Dim rownum As Long
    Dim i, j As Long
    Dim myCheck As String
    Dim found As Boolean
   
    Application.ScreenUpdating = False
   
    rownum = Selection.Rows.Count
    For i = rownum To 1 Step -1
        myCheck = ActiveCell
        ActiveCell.Offset(1, 0).Select
       
        For j = 1 To i
            If ActiveCell = myCheck Then
                If Not found Then
                    ActiveCell.Offset(-j, 0).Select
                    Selection.Font.Bold = True
                    Selection.Font.ColorIndex = 3
                    ActiveCell.Offset(j, 0).Select
                    found = True
                End If
           
                Selection.Font.Bold = True
                Selection.Font.ColorIndex = 3
               
            End If
            ActiveCell.Offset(1, 0).Select
        Next j
        ActiveCell.Offset(-i, 0).Select
        found = False
    Next i
    Application.ScreenUpdating = True
End Sub