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

 Wie extrahiere ich Großbuchstaben oder Wörter, die mit Großbuchstaben beginnen, aus Textzeichenfolgen?

Wenn Sie eine Liste mit Textzeichenfolgen haben, möchten Sie jetzt nur alle Großbuchstaben oder die Wörter, die mit einem Großbuchstaben beginnen, aus den Zellen extrahieren. Wie können Sie es in Excel lösen?

Extrahieren Sie mit der benutzerdefinierten Funktion Großbuchstaben aus Textzeichenfolgen

Extrahieren Sie Wörter, die mit Großbuchstaben beginnen, mit der benutzerdefinierten Funktion aus Textzeichenfolgen


Extrahieren Sie mit der benutzerdefinierten Funktion Großbuchstaben aus Textzeichenfolgen

Der folgende VBA-Code kann Ihnen helfen, nur die Großbuchstaben aus Zellen zu extrahieren. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Extrahieren Sie nur Großbuchstaben aus Textzeichenfolgen:

Funktion ExtractCap (Txt As String) As String 'Updateby Extendoffice
    Application.Volatile Dim xRegEx As Object Set xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Set xRegEx = Nothing End Function

3. Speichern Sie dann den Code und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = EXTRACTCAP (A2) in eine leere Zelle, in der Sie das Ergebnis ausgeben möchten, und ziehen Sie dann den Füllpunkt nach unten zu den Zellen, auf die Sie diese Formel anwenden möchten. Alle Großbuchstaben wurden gleichzeitig extrahiert (siehe Abbildung):


Extrahieren Sie Wörter, die mit Großbuchstaben beginnen, mit der benutzerdefinierten Funktion aus Textzeichenfolgen

Wenn Sie die Wörter, die mit einem Großbuchstaben beginnen, aus Textzeichenfolgen extrahieren müssen, kann Ihnen der folgende VBA-Code helfen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster.

VBA-Code: Wörter extrahieren, die mit Großbuchstaben beginnen:

Funktion StrExtract (Str As String) As String 'Updateby Extendoffice
    Application.Volatile Dim xStrList als Variante Dim xRet als String Dim I so lange Wenn Len (Str) = 0, dann Exit-Funktion xStrList = Split (Str, "") Wenn UBound (xStrList)> = 0 Dann für I = 0 bis UBound ( xStrList) Wenn xStrList (I) = StrConv (xStrList (I), vbProperCase), dann xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function

3. Speichern Sie dann den Code und schließen Sie das Codefenster. Geben Sie die folgende Formel ein: = StrExtract (A2) Ziehen Sie den Füllpunkt in eine leere Zelle neben Ihren Daten und ziehen Sie ihn nach unten zu den Zellen, in denen Sie das Ergebnis erhalten möchten. Alle Wörter, die mit einem Großbuchstaben beginnen, werden extrahiert (siehe Abbildung):


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 (8)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,

danke für diese Formel, aber mein =EXTRACTCAP(A2) kommt immer wieder mit einem Fehler zurück.

kannst du helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Sonja,
Die obige benutzerdefinierte Funktion funktioniert gut in meiner Excel-Arbeitsmappe, welche Excel-Version verwenden Sie?
Oder haben Sie den obigen Code kopiert und in Ihr VBA-Modul eingefügt?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
У вас так и написано "вставьте следующий код в модуль".
У меня тоже ошибка
Dieser Kommentar wurde vom Moderator auf der Website minimiert
у вас страница была открыта на русском языке? Удалите /ru из ссылки: https://www.extendoffice.com/documents/excel/4554-excel-extract-capital-letters.html#a1
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,

Wie kann ich diese Funktion nur einem bestimmten Arbeitsblatt zuweisen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
NVM - nicht mehr notwendig
Dieser Kommentar wurde vom Moderator auf der Website minimiert
jestem Excelowym laikiem, ale próbowałam postępować zgodnie z wytycznymi... oworzyłam alt+F11, insert->module i wstawiłam skopiowaną formułę. Przy próbie zapisu wywala mi błąd, coś o makrach... help!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Chania

Kannst du dein Problem genauer beschreiben? Bitte fügen Sie hier Ihr Problem als Screenshot ein, wenn Sie nichts dagegen haben.
Vielen Dank!
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