Note: The other languages of the website are Google-translated. Back to English

Wie klicke ich auf einen Buchstaben, um zu der Zelle zu gelangen, die mit diesem Buchstaben in Excel beginnt?

Wissen Sie, wie Sie bei Verwendung eines Excel-Arbeitsblatts mit großen Datenmengen schnell zu bestimmten Zellen navigieren oder diese finden können, die bestimmte Inhalte enthalten? Mit der Methode in diesem Artikel können Sie auf eine Alphabetbuchstabenzelle klicken, um zu der Zelle zu navigieren, deren Inhalt automatisch mit diesem Alphabetbuchstaben beginnt.

Klicken Sie auf den Buchstaben, um zur Zelle zu gelangen, die mit diesem Buchstaben mit VBA-Code beginnt

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Klicken Sie auf den Buchstaben, um zur Zelle zu gelangen, die mit diesem Buchstaben mit VBA-Code beginnt

Gehen Sie wie folgt vor, um zu einer Zelle zu gelangen, indem Sie in Excel auf eine Alphabetzelle klicken.

1. Im Arbeitsblatt müssen Sie zu einer Zelle wechseln, indem Sie auf eine Alphabetzelle klicken, mit der rechten Maustaste auf die Registerkarte Blatt klicken und dann auf klicken Code anzeigen aus dem Kontextmenü. Siehe Screenshot:

2. Dann a Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.

VBA-Code: Klicken Sie auf den Buchstaben, um zur Zelle zu gelangen, die 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 Sub

Hinweis: Im Code bedeutet 1: 1, dass sich die Buchstaben in der ersten Zeile des Arbeitsblatts befinden.

3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Wenn Sie von nun an auf eine Alphabetzelle klicken, werden alle Zellen, die mit diesem Buchstaben beginnen, automatisch gleichzeitig im Arbeitsblatt ausgewählt.

Wenn keine Zelle mit dem ausgewählten Buchstaben beginnt, wird ein Dialogfeld von Kutools für Excel angezeigt (siehe Abbildung unten).


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (2)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist eine wirklich gute Implementierung von „Finde das Wort, das mit dem Buchstaben beginnt …“.
Ich möchte jedoch nicht, dass die Zellen ausgewählt werden, da dies zu Datenänderungen oder schlimmer noch zu Löschungen führen kann.
Ich weiß das, weil ich es gerade getan habe. ;-(
Ich werde herausfinden, wie man zur ersten Zelle springt und nicht alle (oder irgendeine) davon auswählt.
In der Zwischenzeit danke ich Ihnen für Ihre Hilfe. Ich weiß das zu schätzen.
Pip
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Entschuldigen Sie die Unannehmlichkeiten, der folgende VBA-Code kann helfen, zur ersten Zelle im aktuellen Blatt zu springen, wenn Sie auf eine Zelle klicken, die einen bestimmten Buchstaben enthält.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    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
                    Exit For
                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 Sub
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL