Wie kann ich erreichen das mir eine Meldung sagt dass der Eintrag den icht gemacht in der Spalte habe schon vorhanden ist, ohne auf Gross/Kleinschrift zu achten? (z.B.Spalte in A)
Danke
Serge
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reihe As Long
If Not Intersect(Target, Range("a:a")) Is Nothing Then
reihe = Target.Row
Range("a1").End(xlDown).Activate
LetzteZeile = ActiveCell.Row
Cells(reihe + 1, 1).Activate
If reihe > 1 Then
For i = 1 To reihe - 1
If Cells(i, 1) = Cells(reihe, 1) Then
MsgBox ("Eintrag gibt es schon!")
Exit Sub
End If
Next i
End If
For i = reihe + 1 To LetzteZeile
If Cells(i, 1) = Cells(reihe, 1) Then
MsgBox ("Eintrag gibt es schon!")
Exit Sub
End If
Next i
End If
End Sub
Viel Erfolg
Holger