und schon lege ich mir erneut die Karten.
Was ich möchte:
In einem Tabellenblatt mit Vereinsmitgliederdaten (Zeilenweise) über einzelne Befehlsschaltflächen "A" bis "Z" jeweils die Zeile mit dem ersten gefundenen Nachnamen (Spalte "E") beginnend mit dem entspr. Buchstaben direkt unter die Überschrift scrollen lassen. Überschriften in Zeile 4, Fenster-Fixierung links + oberhalb von Zelle I5. Mein bisheriger Versuch scheitert leider kläglich. Die von mir definierte Variable (scRow) erhält keinen Input, sie bleibt immer "Leer". Exemplarich für den Buchstaben "G".
Dank für Eure Hilfe,
hoffe mich auch mal revanchieren zu können, nur leider meine Kentnisse.
Sub zeige_g()
NName = "G*"
Call suchen(NName)
End Sub
Sub suchen(NName)
Dim scRow
On Error Resume Next
Worksheets("Tabellenansicht").Activate
scRow = Row.Find(What:=NName, After:=Range("E4"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True)
Cells(scRow, 1).Select
ActiveWindow.ActivePane.ScrollRow = scRow
End Sub