Clever-Excel-Forum

Hallo!

Ich habe eine Spalte A, wo lauter Namen drinnen stehen. Wenn ich nun in Spalte A einen Namen eingebe, wird sofort überprüft, es diesen Namen bereits gibt. Wenn ja, dann wird eine Nachricht angezeigt und die Eingabe wird gelöscht. Wenn es den Namen nicht gibt, dann tragt er den Namen in der Spalte A ein.
Nun möchte ich, dass wenn es den Namen gibt, dass er zusätzlich zu dieser Stelle springt, wo es den Namen bereits gibt. Beispiel: Gibt man den Namen "Käfer" ein, sollte er nach der Nachricht in die Zelle A4 springen.
Ich habe die Datei mit angehängt.
Ich hoffe, dass mir jemand helfen kann.

LG
Thomas

Hallo

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Zeile As Integer

    If Target.Count > 1 Then Exit Sub

    If Target.Row > 5000 Or Target.Row < 1 Then Exit Sub

    If Target.Column <> 1 Then Exit Sub

    If Target.Value = "" Then Exit Sub

    If Application.CountIf(Range("A2:A5000"), Target.Value) > 1 Then

        Zeile = Application.Match(Target.Value, Range("A2:A5000"), 0) + 1

        Application.EnableEvents = False

        MsgBox "Der Name """ & Target.Value & """ wurde bereits eintgetragen!"

        Target.ClearContents

        Cells(Zeile, 1).Select

        Application.EnableEvents = True

    End If

    Range("a2").CurrentRegion.Sort Key1:=Range("a5000"), Order1:=xlAscending, Header:=xlGuess

End Sub

LG UweD

danke sehr, du hast mir sehr damit geholfen, es funktioniert genauso, wie ich es mir vorgestellt habe

dertommy

UweD

dertommy