Hyperlink zu Anfangsbuchstaben

[urmel72]

Hallo allerseits,
bin neu im Forum und hoffe auf Eure Hilfe.
Ich habe eine umfangreiche Tabelle mit insgesamt 8900 Zeilen. In der Spalte A stehen 8900 Nachnamen, sortiert von A-Z.
Ich möchte nun in der ersten Zeile Schaltflächen für jeden Anfangsbuchstaben (also A, B, C, D usw....) einfügen und diese jeweils mit einem Hyperlink so verknüpfen, dass in die Zeile gesprungen wird, die als erstes den Anfangsbuchstaben enthält. Beim Klick also auf die Schaltfläche "M" soll Excel in die Zeile springen, wo der erste Nachname mit M beginnend steht.
Ich hoffe das geht mit einer Formel/Funktion ohne Makro.
Danke für Eure Hilfe.
Stefan

[RPP63]

Moin Stefan!

Ich hoffe das geht mit einer Formel/Funktion ohne Makro.

Wie soll das gehen?
Hinter Schaltflächen verbirgt sich IMMER Code.

Gruß Ralf

[RPP63]

Ach so:
Nutze den Autofilter, betätige den Dropdown und gebe den Anfangsbuchstaben plus Asterisk ins Suchfeld ein (W*).

Gruß Ralf

[Jockel]

Hallo allerseits,
...
Ich hoffe das geht mit einer Formel/Funktion ohne Makro.
Danke für Eure Hilfe.
Stefan

Hallo, Ralf schrieb ja schon Schaltfläche = (VBA) Makro... Ohne Schaltfläche geht es sicher mit HYPERLINK(), aber dazu sind die Info's zu spärlich... ... TIPP: HYPERLINK() & VERGLEICH()

[urmel72]

Um es zu verdeutlichen was ich meine anbei 2 screenshots.
Bild 1 zeigt meine Buttons in der ersten Zeile, die ich gerne jeweils mit einem Hyperlink/Textmarke versehen will.
Bild 2 zeigt, in welche Zelle gesprungen werden soll, wenn ich z.B. auf den Button D klicke.

[RPP63]

Hi!
Anstatt Bildchen zu posten, hättest Du besser die bisherigen Antworten gelesen.
(soweit reicht unsere Phantasie noch, um sich die Tabelle vorzustellen)
Button -> VBA

Autofilter: D* ins Suchfeld

Gruß Ralf

[urmel72]

Wow! Als Forum-Neuling und Excel-Amateur hätt' ich mit soviel "Toleranz" nicht
gerechnet. Danke trotzdem  :@

[RPP63]

Du brauchst nicht beleidigt oder gar sauer sein.
Lade die Datei (kein Bild) hoch und Du wirst zwei Lösungen erhalten:
Ich zeige Dir Codes und Jörg sicherlich eine formelgebundene Variante.

Ich bin nicht bereit, eine Datei anhand eines Screenshots nachzubauen, wenn die zugehörige Datei bereits vorhanden ist.

Gruß Ralf

[urmel72]

Alles klaro, dann probieren's wir mal mit Anhang.
Nochmal kurz mein Anliegen:
Die Schaltfläche soll mit einem Hyperlink belegt werden, sodass bei einem Klick darauf die Zelle mit dem jeweiligen Anfangsbuchstaben angesteuert wird und die Zelle dann oben als erste in der Liste erscheint.

[RPP63]

Moin!
Da fiel mir gestern Abend noch ein, dass ich ja eine einfache Version mit Textfeld in meinem Fundus habe.
Eingabe des Anfangsbuchstabens filtert automatisch, Name kann sukzessive ergänzt werden.
Der Code im Klassenmodul der Tabelle:
Microsoft Excel Objekt Tabelle1

Option Explicit 



Private Sub TextBox1_Change() 

Dim Letzte As Long 

Letzte = Cells(Rows.Count, 1).End(xlUp).Row 

With Range(Cells(2, 1), Cells(Letzte, 2)) 

   .AutoFilter _

       field:=1, Criteria1:=TextBox1.Text & "*", VisibleDropDown:=False 

   .AutoFilter field:=2, VisibleDropDown:=False 

End With 

End Sub 



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 

If KeyCode = 27 Then    'bei ESC-Taste wird Filterung aufgehoben 

   TextBox1 = "" 

   If AutoFilterMode Then Cells(2, 1).AutoFilter 

End If 

End Sub 



Private Sub CommandButton1_Click() 

TextBox1 = "" 

If AutoFilterMode Then Cells(2, 1).AutoFilter 

End Sub 

Datei im Anhang.

Gruß Ralf