Doppelte Einträge in mehreren Spalten verhindern
18.01.2003 16:08:31
Valeri
Welche ein Glück, dass es dieses Forum gibt! Ich habe selten so etwas Ergiebiges gefunden! Nun meine Frage. Hier im Forum hast Du mal mit dem am Ende stehenden Script verhindert, dass in der ersten Spalte ein Begriff doppelt vorkommt. Trotz aller Mühen schaffe ich es nicht, es anzupassen. Ich benötige nämlich die Möglichkeit, dass ich in der ersten Spalte eine Telefonnummer eingebe und ein Script (so wie unten) zeigt mir durch Löschen des Begriffs, dass dieser Begriff schon irgendwo in den ersten 4 Spalten vorkommt. Zweck ist es, bei zum Beispiel 4 verschiedenen Telefonnummern trotzdem sofort zu wissen, das diese irgendwo schon steht.
Danke vorab. Valeri
*************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then
Target.ClearContents
End If
If Target.Value Like "*y*" Then
Target.ClearContents
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
***********