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
Moin Stefan!
Zitat:Ich hoffe das geht mit einer Formel/Funktion ohne Makro.
Wie soll das gehen?
Hinter Schaltflächen verbirgt sich IMMER Code.
Gruß Ralf
Ach so:
Nutze den Autofilter, betätige den Dropdown und gebe den Anfangsbuchstaben plus Asterisk ins Suchfeld ein (W*).
Gruß Ralf
(19.12.2016, 12:59)urmel72 schrieb: [ -> ]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()
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.
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
Wow! Als Forum-Neuling und Excel-Amateur hätt' ich mit soviel "Toleranz" nicht
gerechnet. Danke trotzdem :@
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
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.
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 Tabelle1Option 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