Wie lässt man nur eindeutige Werte in Excel zu?

Wenn Sie nur eindeutige Werte in einer Spalte eines Arbeitsblatts zulassen und Duplikate verhindern möchten, stellt dieser Artikel einige schnelle Tricks vor, um diese Aufgabe zu bewältigen.

Nur eindeutige Werte im Arbeitsblatt mit Datenvalidierung zulassen

Nur eindeutige Werte im Arbeitsblatt mit Kutools für Excel zulassen

Nur eindeutige Werte im Arbeitsblatt mit VBA-Code zulassen

Nur eindeutige Werte im Arbeitsblatt mit Datenvalidierung zulassen

Tatsächlich kann Ihnen die Funktion „Datenvalidierung“ von Excel helfen, dieses Problem zu lösen. Gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zellen oder Spalten aus, in die nur eindeutige Werte eingegeben werden sollen, und klicken Sie dann auf Daten > Datenvalidierung > Datenvalidierung. Siehe Screenshot:

2. Im Dialogfeld „Datenvalidierung“ führen Sie bitte die folgenden Schritte aus:

(1.) Klicken Sie auf den Reiter Einstellungen;

(2.) Wählen Sie unter der Dropdown-Liste „ Zulassen“ die Option Benutzerdefiniert aus;

(3.) Geben Sie diese Formel ein: =COUNTIF($E:$E,E1)<2 (E ist die Spalte, in der Sie nur eindeutige Werte zulassen möchten, E1 ist die erste Zelle der Spalte, die Sie verwenden möchten) in das Textfeld Formel.

3. Klicken Sie dann auf die Schaltfläche OK. Ab jetzt wird eine Warnmeldung angezeigt, wenn Sie einen doppelten Wert in die festgelegte Spalte eingeben. Siehe Screenshot:

Nur eindeutige Werte im Arbeitsblatt mit Kutools für Excel zulassen

Die beiden oben genannten Methoden können nur Duplikate in einer Spalte verhindern. Wenn Sie Kutools für Excel haben, kann dessen Funktion „Duplikate verhindern“ Ihnen schnell dabei helfen, Duplikate in einem Zellbereich sowie nur in einer Spalte oder Zeile zu verhindern.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Spalte oder den Zellbereich aus, in dem Sie Duplikate verhindern, aber nur eindeutige Daten zulassen möchten.

2. Klicken Sie dann auf Kutools > Eingabe begrenzen > Duplikate verhindern. Siehe Screenshot:

3. Eine Warnmeldung wird angezeigt, um Sie daran zu erinnern, dass die Datenvalidierung entfernt wird, wenn Sie diese Funktion anwenden. Siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche Ja, um fortzufahren, und ein weiteres Popup-Fenster erscheint, um Sie darüber zu informieren, in welchen Zellen diese Funktion angewendet wurde. Siehe Screenshot:

5. Klicken Sie dann auf die Schaltfläche OK. Jetzt wird, wenn Sie doppelte Daten im Bereich A1:D15 eingeben, ein Hinweisfenster angezeigt, das Sie darauf hinweist, dass die doppelten Daten ungültig sind. Sie müssen nur eindeutige Werte eingeben. Siehe Screenshot:

Mehr als 300 Funktionen können Ihre Arbeit effizienter machen. Sie können Kutools für Excel kostenlos herunterladen.

Nur eindeutige Werte im Arbeitsblatt mit VBA-Code zulassen

Wenn Sie sich für VBA-Code interessieren, kann Ihnen der folgende Code ebenfalls helfen.

1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, in der Sie nur negative Zahlen zulassen möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie im geöffneten Fenster „ Microsoft Visual Basic for Applications“ den folgenden Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Nur eindeutige Werte im Arbeitsblatt zulassen:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

Hinweis: Im obigen Code ist A1:A1000 der Spaltenbereich, in dem Sie Duplikate verhindern möchten.

2. Speichern und schließen Sie diesen Code. Jetzt wird, wenn Sie doppelte Werte in den Zellen A1:A1000 eingeben, eine Warnmeldung angezeigt, die Sie darauf hinweist, dass doppelte Einträge nicht erlaubt sind. Siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und der doppelte Wert wird gelöscht.