Direkt zum Inhalt

Wie ändere ich Textzeichenfolgen in Microsoft Excel in Satzbuchstaben?

Möglicherweise müssen Sie in Microsoft Excel Textzeichenfolgen in Groß- und Kleinschreibung ändern. Angenommen, es gibt Hunderte von Textzeichenfolgen in Groß- oder Kleinbuchstaben. Eine manuelle Änderung nacheinander ist keine gute Wahl. Gibt es einfache Tricks, um Textzeichenfolgen in Microsoft Excel in Groß- und Kleinschreibung zu ändern?


Pfeil blau rechte Blase Ändern Sie Textzeichenfolgen in Excel mit VBA in Satzbuchstaben

Wenn Sie mit Microsoft Excel vertraut sind, ist die Verwendung von VBA eine gute Wahl, um Textzeichenfolgen in Groß- und Kleinschreibung zu ändern.

Schritt 1: Halten Sie die Taste gedrückt ALT + F11 und öffnet das Fenster Microsoft Visual Basic für Applikationen.

Schritt 2: Klicken Sie auf Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

Sub SentenceCase()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

Schritt 3: Drücken Sie die Taste F5 Wenn Sie die Taste drücken, um dieses Makro auszuführen, wird auf dem Bildschirm ein Dialogfeld zur Auswahl eines Bereichs angezeigt (siehe Abbildung):

doc-change-case7

Schritt 4: Klicken Sie auf Okund Sie können das Ergebnis wie folgt sehen:


Pfeil blau rechte Blase Ändern Sie mit Kutools for Excel Textzeichenfolgen in Groß- und Kleinschreibung

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Starten Sie jetzt

Das VBA-Makro ist für Anfänger von Microsoft Excel möglicherweise nicht einfach. Bitte mach dir keine Sorgen. Kutools for Excel's Fall ändern Das Tool kann bei Auswahl schnell alle Textzeichenfolgen in Groß- und Kleinschreibung ändern.

Schritt 1: Wählen Sie den Bereich aus, in dem Sie Textzeichenfolgen in Groß- und Kleinschreibung ändern möchten.

Schritt 2: Klicken Sie auf Kutoolen > Textwerkzeuge > Fall ändern…. Siehe Screenshot:

Schritt 3: Aktivieren Sie im Dialogfeld Fall ändern die Option Satz Fall. Option und klicken Sie auf OK or Jetzt bewerben .

Anschließend sehen Sie, dass alle Arten von Textzeichenfolgen in der Auswahl in Satzbuchstaben geändert werden. Siehe folgende Abbildung:

Kutools for Excel's Fall ändern Das Tool kann die Groß- und Kleinschreibung schnell in UPPER, LOWER, PROPER, Satz und TOGGLE ändern. Klicken Sie hier, um mehr zu erfahren…


Relative Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


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!

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations