Commandbutton zu Anfangsbuchstaben springen

Hallo,
ich habe in Spalte C ab Zeile 15 bis ca Spalte 500 Nachnamen. Im oberen fixierten Bereich der Tabelle möchte ich 26 CommandButton A-Z erstellen.
Durch klicke auf einen Button möchte ich dann in Spalte C zu dem gewünschten Anfangsbuchstaben springen.
Ich möchte das definitiv nicht über Textfelder, Kombiboxen oder anders lösen da ich nach einer 1-Klicklösung suche. Also Klick auf z. B. Commandbutton B und automatischer Sprung
zum ersten Nachnamen mit B am Anfang.
Ich muss gestehen, dass ich von Makros und VBA so gut wie keine Ahnung habe und mir immer alles zusammengoogle.


Private Sub CommandButton1_Click()
Ich müsste also wissen was ich genau hier einfügen müsste. Klappt es mit einem Buchstaben  _
kann ich das bei den anderen ja dementsprechend anpassen.
End Sub

Vielen Dank für eure Unterstützung.
Gruß Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

naja, wenn du die Fragen in mehrern Foren stellst, dann beschäftigen sich ja auch mehere Leute gleichzeigt mit dem Problem und das ist eigentlich unnötig.
hier im Forum sehe ich ja, ob du schon eine Antwort hast, aber die anderen Foren kenne ich nicht, und verwende man meine Zeit für eine Lösung, die du vielleicht längst schon hast, wärend ein anderer immer noch warten muss.
würdest du die Frage in mehreren Foren gleichzeitig stellen, wenn du jeden Antworter für seine Bemühungen bezahlen müsstest? Wahrscheinlich nicht.
Denn wenn du wirst sicherlich nicht 5x für die gleiche Lösung bezahlen wollen.
aussedem ist es so dass viele Crossposter die anderen Foren nicht mehr beachten, sobald sie in einem eine passende Lösung bekommen haben und sich dann nicht mal mehr in den andern Foren bedanken, wenn dann dort etwas später eine Lösung kommt und dann bleibt da ein frustierter Anworter zurück, der vergeblich auf ein Feedback wartet.
Gruß Daniel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row = 1 Then Dim zelle As Range Set zelle = Columns(3).Find(what:=Chr(Target.Column + 64) & "*", lookat:=xlWhole) If zelle Is Nothing Then MsgBox "Kein Treffer!", vbCritical + vbOKOnly, "Hinweis" Range("A1").Select Else Application.Goto zelle End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Commandbutton zu Anfangsbuchstaben springen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Commandbutton zu Anfangsbuchstaben springen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread