Office: Zelle Aktivieren

Hallo Excelfreunde, ich habe schon wieder eine Frage. Ich habe ein Tabellenblatt("Übersicht"), in der befindet sich eine Tabelle. In der Range E:E, stehen Namen. Nun möchte ich in einer Zelle (M33) einen Namen aus der Tabelle eingeben und dieser soll gefunden werden. Nur möchte ich keine bedingte formatierung sonder die Zelle aus der Tabelle, in der der Name steht soll aktiviert werden. Das ganze gern als click Event. Kann mir jemand dabei helfen?
Vielen Dank schon einmal

 

Hi Jens,

mit folgendem Code im Codemodul des Tabellenblattes wird bei Eingabe in M33 in Spalte E gesucht und wenn gefunden zur Zelle gesprungen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngName As Range
    If Target.Cells(1).Address(0, 0) = "M33" Then
        If Target.Cells(1) <> "" Then
            Set rngName = Columns(5).Find(Target.Cells(1), lookat:=xlWhole)
            If Not rngName Is Nothing Then rngName.Select
        End If
    End If
End Sub

---

 

Vielen Dank für deine Mühe. Funktioniert super. Nun habe ich neben dem suchfeld "M33" noch einen suchen-button den ich gern nutzen würde. Die jetzige Lösung ist zwar einfacher aber ich habe ein Formular gebastelt mit mehreren Buttons sie super verteilt sind. Wenn der suchen-button nun ohne Funktion bleibt und ich ihn entferne, dann sieht das irgendwie blöd aus ...

 

Dann packe den Code in die Prozedur deines Buttons, lösche die 1. If-Zeile und letzte End If-Zeile und ersetze
Target.Cells(1) durch Range("M33")

---