Office: Duplikate bei Neueintragung nicht zulassen

Hallo zusammen!


Folgendes Problem:

Ich möchte in einer Tabelle mit Namen verhindern, dass ein Name doppelt eingetragen werden kann. Es stehen also schon bestimmte Personen in der Tabelle. Wenn man jetzt eine neue Einträgt soll verhindert werden, dass diese schon vorhanden ist. Am Besten mit Warnung, die zur Not auch übergangen werden kann (falls 2 unterschiedliche Personen mal den gleichen Namen haben)

In der hochgeladenen Tabelle sollte also eine Warnung kommen, wenn die Person in Zeile 5 eingetragen wird. Spalte D habe ich eingetragen, da die Verketten Funktion für mich eine Möglichkeit dargestellt hat nach beiden Möglichkeiten zu prüfen...

Freue mich auf eure Vorschläge! Vielen Dank!

 

Hallo!

Vielleicht nutzt du die Hilfsspalte einfach zum Anzeigen einer Warnmeldung?

	A	B	C	D
1	Anrede	Nachname	Vorname	Hilfsspalte?
2	Frau	Müller	Alexander
3	Herr	Maier	Harald
4	Herr	Peters	Peter	mehrfach
5	Herr	Peters	Peter	mehrfach

Zelle	Formel
D2	=WENN(SUMMENPRODUKT(N(B$2:B$999&"#"&C$2:C$999=B2&"#"&C2))>1;"mehrfach";"")
D3	=WENN(SUMMENPRODUKT(N(B$2:B$999&"#"&C$2:C$999=B3&"#"&C3))>1;"mehrfach";"")
D4	=WENN(SUMMENPRODUKT(N(B$2:B$999&"#"&C$2:C$999=B4&"#"&C4))>1;"mehrfach";"")
D5	=WENN(SUMMENPRODUKT(N(B$2:B$999&"#"&C$2:C$999=B5&"#"&C5))>1;"mehrfach";"")

 

Die Hilfsspalte sollte zwingend dauerhaft ausgeblendet sein. Kann man da vielleicht per VBA mit einer Message Box arbeiten, die sich auf die Hilfsspalte bezieht?

 

Hallo!

Mit VBA brauchst du dann auch keine Hilfsspalte mehr...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long, x As Integer
    With Target
        If .Column = 2 Or .Column = 3 Then
            For i = 2 To .Row - 1
                If Cells(i, 2) = Cells(.Row, 2) And Cells(i, 3) = Cells(.Row, 3) Then
                    x = MsgBox("Diesen Eintrag gibt es schon!" & vbLf & "Trotzdem eintragen?", vbYesNo)
                    If x <> 6 Then .ClearContents
                End If
            Next i
        End If
    End With
End Sub

 

Hallo!

Oder so.

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C
1	Doppelte Namen Vornamen kenntlich machen, prüfen mit Formel
2
3	Name	Vorname	Status
4	Müller	Klaus	Prüfen
5	Müller	Paul
6	Müller	Klaus	Prüfen
7	Müller	Karl
8	Müller	Peter	Prüfen
9	Müller	Klaus	Prüfen
10	Müller	Willi
11	Müller	Peter	Prüfen
12	Müller	Sepp
13	Huber	Karin
14
15

Zelle	Formel
C4	=WENN(SUMMENPRODUKT(($A$4:$A$29=A4)*($B$4:$B$29=B4))>1;"Prüfen";"")

Zelle	bedingte Formatierung...	Format
A4	1: =ZÄHLENWENN(A$4:A29;A4)>1	abc
B4	1: =ZÄHLENWENN(B$4:B29;B4)>1	abc

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

 

Ok, so weit bin ich in VBA noch nicht :) Genau das hatte ich gesucht.

Vielen Dank!