Makro doppelte Eintraege verhindern
20.06.2008 15:27:45
AlexandraB
ich habe im Internet ein Makro gefunden, welches beim Eintragen eines bereits in Spalte A vorkommenden Wertes eine Fehlermeldung gibt. Ich wuerde es gern auch in Spalte E anwenden, kann es aber leider nicht anpassen, so dass es funktioniert.
Nachfolgend das Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target "" Then 'Column A
If WorksheetFunction.CountIf(Columns(1), Target) > 1 Then
MsgBox "Number " & Target & " already exists!", _
vbCritical, "OzGrid Business Applications"
Target = ""
Target.Select
End If
End If
End Sub
Ich habe es mit Target.Column=5, Columns(5) versucht, aber es hat leider nicht geklappt.
Wie macht man es richtig?
Vielen Dank im Voraus!