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

 Wie konvertiere ich Textzeichenfolgen mit Ausnahmen in Excel in die richtige Groß- und Kleinschreibung?

In Excel können Sie die Funktion "Richtig" anwenden, um Textzeichenfolgen einfach in die richtige Groß- und Kleinschreibung zu konvertieren. Manchmal müssen Sie jedoch bestimmte Wörter ausschließen, wenn Sie die Textzeichenfolgen in die richtige Groß- und Kleinschreibung konvertieren (siehe folgenden Screenshot). In diesem Artikel werde ich über einige schnelle Tricks zum Lösen dieses Jobs in Excel sprechen.

Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe der Formel in die richtige Groß- und Kleinschreibung

Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe von VBA-Code in Groß- und Kleinschreibung


Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe der Formel in die richtige Groß- und Kleinschreibung

Möglicherweise kann die folgende Formel Ihnen helfen, diese Aufgabe schnell zu erledigen. Gehen Sie dazu folgendermaßen vor:

Geben Sie diese Formel ein:

= UPPER (LEFT (A2)) & MID (TRIM (SUBSTITUTE (SUBSTITUTE) (SUBSTITUTE (SUBSTITUTE ("" & PROPER (A2) & "", "Of", "of"), "A", "a"), "Is "," ist ")," USA "," USA ")), 2, LEN (A2)) in eine Zelle, in der Sie das Ergebnis erhalten möchten, und ziehen Sie dann den Füllpunkt, um diese Formel zu füllen. Die Textzeichenfolgen wurden in Groß- und Kleinschreibung konvertiert, jedoch mit bestimmten Ausnahmen (siehe Abbildung):

Hinweis: In der obigen Formel A2 ist die Zelle, die Sie konvertieren möchten, "Von", "A", "Ist", "USA" sind die normalen Groß- und Kleinschreibung nach der Konvertierung, "Von", "a", "ist", "USA" sind die Wörter, die Sie aus dem richtigen Fall ausschließen möchten. Sie können sie nach Bedarf ändern oder mit der Funktion SUBSTITUTE andere Wörter hinzufügen.


Konvertieren Sie Textzeichenfolgen mit Ausnahmen mithilfe von VBA-Code in Groß- und Kleinschreibung

Wenn die obige Formel etwas schwer zu verstehen und an Ihre Bedürfnisse anzupassen ist, können Sie hier auch einen VBA-Code anwenden, um diese Aufgabe abzuschließen. Bitte führen Sie die folgenden Schritte nacheinander aus.

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 Modulfenster.

VBA-Code: Konvertieren Sie Textzeichenfolgen mit Ausnahmen in den richtigen Fall:

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die ursprünglichen Zellen auszuwählen, die Sie konvertieren möchten. Siehe Screenshot:

4. Und dann klick OKWählen Sie im angezeigten Feld die Zellen aus, in denen Sie die Ergebnisse ausgeben möchten (siehe Abbildung):

5. Klicken Sie weiter OKWählen Sie im Popup-Dialogfeld die Texte aus, die Sie ausschließen möchten (siehe Abbildung):

6. Und dann klick OK Um die Dialoge zu verlassen und alle Textzeichenfolgen in die richtige Groß- und Kleinschreibung zu konvertieren, aber die angegebenen Wörter auszuschließen, siehe Screenshot:


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 (1)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das wäre erstaunlich, wenn das Makro nur den Teil des Stichs in CAPS ausschließen würde, nicht die gesamte Zelle aus der Ausnahmeliste.
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