Hallo Thorsten,
schießt du nicht etwas über das Ziel hinaus? Du kannst dir z.B. ein Makro schreiben, das du per Tastenkombination auslöst oder in eine Ikone der Schnellzugriffsleiste legt.
In dem Makro rufst du eine InputBox auf, in die du Anfangsbuchstaben eingeben kannst. Nach diesen Buchstaben kannst du Spalte A durchsuchen. Etwa:
Sub vornamen_suchen()
n = LCase(InputBox("Anfangsbuchstaben"))
If n = "" Then Exit Sub
l = Len(n)
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If LCase(Left(Cells(i, 1), l)) = n Then Cells(i, 1).Select: Exit Sub
Next i
MsgBox "Name nicht gefunden!"
End Sub
Da die Entertaste eine Markierungsänderung bewirkt, kannst du z.B. mit dem Worksheet_SelectionChange (s.VBA-Hilfe) die Auslösung eines Hyperlinks mit der Entertaste simulieren. Der erforderliche Code kannst du vermutlich durch Aufzeichnung und Verallgemeinerung leicht heraus bekommen. Ich wende keine Hyperlinks an und werde deshalb hier nicht helfen.
Gruß
Holgern
|