Wie kann man eine Textzeichenfolge in Excel schnell nach Groß- und Kleinschreibung trennen?
In Excel teilt man Text normalerweise mithilfe der Funktion „Text in Spalten“ entweder anhand fester Breiten oder eines Trennzeichens auf. Doch haben Sie schon einmal versucht, Text nach Groß- und Kleinschreibung zu trennen? Angenommen, Sie verfügen über eine Liste mit Daten und müssen diese basierend auf der Schreibweise in zwei Spalten aufteilen: eine Spalte mit Zeichenfolgen, die Kleinbuchstaben enthalten, und eine weitere mit Zeichenfolgen, die Großbuchstaben enthalten – wie im folgenden Screenshot dargestellt. Die Funktion „Text in Spalten“ unterstützt diesen Vorgang nicht, aber ich zeige Ihnen einen cleveren Trick, um Textzeichenfolgen in Excel schnell nach Groß- und Kleinschreibung zu trennen.
Text nach Groß-/Kleinschreibung mit VBA aufteilen
Text in Zeilen/Spalten anhand eines Trennzeichens mit Kutools für Excel aufteilen
Text nach Groß-/Kleinschreibung mit VBA aufteilen
In Excel gibt es nur einen einzigen Makrocode, um Zeichenfolgen schnell nach Groß- und Kleinschreibung zu trennen.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das leere Modul-Skript ein.
VBA: Zeichenfolge anhand der Groß-/Kleinschreibung aufteilen.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste F5, woraufhin ein Dialogfeld erscheint, in dem Sie die aufzuteilenden Texte auswählen können. Siehe Screenshot:
4. Klicken Sie auf OK, und die ausgewählten Texte werden in zwei Spalten aufgeteilt – eine enthält nach Kleinbuchstaben gefilterte Inhalte und die andere nach Großbuchstaben gefilterte Inhalte.
Text in Zeilen/Spalten anhand eines Trennzeichens mit Kutools für Excel aufteilen
In vielen Fällen möchten Sie eine Zelle möglicherweise anhand eines bestimmten Trennzeichens in mehrere Zeilen oder Spalten aufteilen. Während die integrierte Excel-Funktion „Text in Spalten“ zwar direkt eine Zelle in Spalten umwandeln kann, funktioniert sie leider nicht für die Aufteilung in Zeilen. Mit Kutools für Excel – einem praktischen und leistungsstarken Werkzeug – nutzen Sie einfach die Funktion Zellen aufteilen, um eine Zeichenfolge blitzschnell in Zeilen oder Spalten zu zerlegen – basierend auf einem Trennzeichen oder fester Breite.
Nachdem Sie kostenlos installiert habenKutools für Excel, gehen Sie bitte wie folgt vor:
1. Wählen Sie die Zelle aus, die Sie aufteilen möchten, und klicken Sie auf Kutools > Vereinigen/Aufteilen > Zellen aufteilen. Siehe Screenshot:
2. Im Dialogfeld Zellen aufteilen wählen Sie im Abschnitt Typ die gewünschte Aufteilungsart aus und aktivieren dann im Abschnitt Aufteilen nach das gewünschte Trennzeichen, das als Grundlage für die Aufteilung dienen soll. Siehe Screenshot:
3. Klicken Sie auf Ok, woraufhin ein Dialogfeld erscheint, das Sie auffordert, eine Zelle für die Platzierung der aufgeteilten Inhalte auszuwählen. Siehe Screenshot:
4. Nach der Auswahl klicken Sie auf OK, und die ausgewählte Zelle wird basierend auf Leerzeichen in mehrere Zeilen aufgeteilt. Siehe Screenshot:
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