Änderung einer VBA-Gültigkeitsprüfung

Question

Hallo zusammen,
ich habe folgende Bitte.
Ich habe eine Gültigkeitsprüfung (schönen Dank nochmal an M.O.)in der überprüft wird, ob ein Name schon mal vorhanden ist.
Wenn ja meckert Excel "Name schon vorhanden!". Soweit alles prima.
Nach der Meldung wird der Name aber automatisch gelöscht und das ist der Knackpunkt. In der täglichen Arbeit hat sich herausgestellt, dass es besser wäre, wenn zwar die Meldung kommt, aber der Name stehen bleibt, damit man dann eine 2 oder 3 usw. (je nachdem wie oft der Name schon vorkam) anfügen kann und nicht den kompletten Namen noch einmal eingeben muss.
Jetzt die Bitte. Kann mir jemand die VBA-Prüfung so ändern, dass der Name nach der Prüfung stehen bleibt.
Hier die VBA-Prüfung:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Bereich1 = Columns(3)
Set Bereich2 = Worksheets("Kundenliste alle").Columns(3)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich1, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich1, Target.Value) + WorksheetFunction.CountIf(Bereich2, Target.Value) > 1 Then
MsgBox "Name schon vorhanden!", 16, "Fehler"
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Target.Select
End If

End Sub

Danke und Gruß Flodnug

Answer 1

hi all ^^

xlsm kann ich nicht lesen
waeren die anderen user so nett, das ereigniss wieder zu aktivieren

nebenbei bemerkt,mir passierte das schon 1000 mal
schon ein fehler ferursacht einen abbruch eines makros und bewirkt
das das wieder einschalten nicht erfolgt

gruss nighty

Answer 2

Hallo nighty,
trotzdem vielen Dank für Deine Bereitschaft, mir nochmal helfen zu wollen. Danke.
Dann hoffe ich, dass z.Bsp. M.O. mir nochmal helfen kann.
Gruß Flodnug

Answer 3

hi Flodnug ^^

einzufuegen
in der totgelegten datei
alt+f11/projectexplorer/einfuegen modul/hier jetzt das makro einfuegen

einmalig starten und dann die Datei speichern
wieder oeffnen und das ereigniss ist wieder aktiv

Sub Makro()
Application.EnableEvents = True
End Sub

gruss nighty

Answer 4

Hallo nighty,
danke für Deine Erläuterungen.
Im Moment funktioniert alles.
Habe mir deshalb vor lauter Angst 2 Sicherheitskopien angelegt und eine dritte auf einem separaten Excelstick.
Nochmals Danke und einen schönen Sommer.
Flodnug