Wie klicken Sie auf einen Buchstaben, um in Excel direkt zur ersten Zelle zu springen, deren Inhalt mit diesem Buchstaben beginnt?
Wenn Sie ein Excel-Arbeitsblatt mit einer großen Datenmenge verwenden, wissen Sie dann, wie Sie schnell zu bestimmten Zellen navigieren oder diese finden können, die einen festgelegten Inhalt enthalten? Mit der Methode in diesem Artikel können Sie auf eine Zelle mit einem Buchstaben klicken, um automatisch zur ersten Zelle zu springen, deren Inhalt mit diesem Buchstaben beginnt.
Durch Klicken auf einen Buchstaben zur Zelle springen, deren Inhalt mit diesem Buchstaben beginnt – mithilfe von VBA-Code
Klicken Sie auf eine Buchstaben-Zelle, um direkt zur entsprechenden Zelle in Excel zu springen.
1. Klicken Sie im Arbeitsblatt mit der rechten Maustaste auf die Blattregisterkarte der Tabelle, in der Sie durch Klicken auf eine Buchstaben-Zelle zu einer bestimmten Zelle springen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Daraufhin öffnet sich ein Microsoft Visual Basic for Applications-Fenster. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Durch Klicken auf einen Buchstaben zur Zelle springen, deren Inhalt mit diesem Buchstaben beginnt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End SubHinweis: Im Code bedeutet „1:1“, dass sich die Buchstaben in der ersten Zeile des Arbeitsblatts befinden.
3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Microsoft Visual Basic for Applications-Fenster zu schließen.
Ab sofort werden beim Klicken auf eine Buchstaben-Zelle automatisch alle Zellen im Arbeitsblatt ausgewählt, deren Inhalt mit diesem Buchstaben beginnt.
Falls keine Zelle mit dem ausgewählten Buchstaben beginnt, erscheint ein Kutools für Excel-Dialogfeld wie im folgenden Screenshot gezeigt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins