Direkt zum Inhalt

Wie füge ich Leerzeichen vor Großbuchstaben in Excel ein?

Angenommen, Sie haben eine Liste von Textzeichenfolgen, bei denen alle Leerzeichen zwischen den Wörtern versehentlich entfernt werden, wie folgt: BlankRowsBetweenData einfügenund jetzt möchten Sie die Leerzeichen vor jedem Buchstaben mit Großbuchstaben hinzufügen, um die Wörter als zu trennen Leere Zeilen zwischen Daten einfügen. Wie können Sie schnell Leerzeichen vor den Großbuchstaben einfügen, anstatt Leerzeichen einzeln in Excel einzugeben?


Fügen Sie mit der benutzerdefinierten Funktion Leerzeichen vor Großbuchstaben ein

Leider gibt es in Excel keine direkte Möglichkeit, Leerzeichen vor den Großbuchstaben einzufügen. Sie können jedoch eine benutzerdefinierte Funktion erstellen, um diese Aufgabe zu lösen.

1. Aktivieren Sie Ihr Arbeitsblatt, das die Textzeichenfolgen enthält, denen Sie Leerzeichen hinzufügen möchten.

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

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Fügen Sie Leerzeichen vor Großbuchstaben ein

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein = Addspaces (A1) in eine leere Zelle neben Ihren Daten, siehe Screenshot:
doc-add-Leerzeichen-vor-Großbuchstaben-1

5. Ziehen Sie dann den Füllpunkt über den Bereich, in dem diese Formel enthalten sein soll. Die Leerzeichen werden vor jedem Großbuchstaben eingefügt.
doc-add-Leerzeichen-vor-Großbuchstaben-1

Entfernen Sie einfach führende / nachfolgende / zusätzliche Leerzeichen in Zellen

Kutools für Excel Leerzeichen entfernen Mit diesem Dienstprogramm können Excel-Benutzer auf einfache Weise alle führenden, nachfolgenden, zusätzlichen oder zusätzlichen Leerzeichen aus ausgewählten Zellen schnell entfernen.


ad Leerzeichen entfernen 1

Fügen Sie Leerzeichen vor Großbuchstaben mit VBA-Code ein

Hier ist ein weiterer VBA-Code, der Ihnen einen Gefallen tun kann. Bitte gehen Sie wie folgt 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 Modulfenster.

VBA-Code: Fügen Sie Leerzeichen vor Großbuchstaben ein

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie einen Datenbereich auswählen können, den Sie verwenden möchten.
doc-add-Leerzeichen-vor-Großbuchstaben-1

4. Und dann klick OK Um dieses Eingabeaufforderungsfeld zu schließen, wurden die Leerzeichen sofort vor den Großbuchstaben eingefügt (siehe Abbildung):
doc-add-Leerzeichen-vor-Großbuchstaben-1


Fügen Sie mit Kutools for Excel vor jedem Großbuchstaben ein Leerzeichen ein

Kutools für Excel Text hinzufügen Mit dem Dienstprogramm können Sie die VBA-Makros umgehen und vor jedem Großbuchstaben in Excel problemlos Leerzeichen einfügen.

Kutools for Excel - Vollgepackt mit über 300 wichtigen Tools für Excel. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Jetzt herunterladen!

1. Wählen Sie den Bereich aus, in den Sie vor Großbuchstaben Leerzeichen einfügen möchten, und klicken Sie auf Kutoolen > Text > Text hinzufügen. Siehe Screenshot:

2. Geben Sie im sich öffnenden Dialogfeld Text hinzufügen ein Leerzeichen in das Feld ein Text Aktivieren Sie das Kontrollkästchen Nur zur Option hinzufügen und wählen Sie Der erste Buchstabe ist in Großbuchstaben von dem Nur hinzufügen zu Dropdown-Liste.

3. Drücke den Ok Schaltfläche zum Einfügen eines Leerzeichens vor jedem Großbuchstaben wie im folgenden Screenshot gezeigt:
doc Leerzeichen vor Großbuchstaben hinzufügen 7

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

Notizen: Diese Methode fügt auch am Anfang von Zellen Leerzeichen hinzu, wenn der erste Buchstabe Großbuchstaben ist. Du kannst dich bewerben Kutoolen > Text > Leerzeichen entfernen um alle führenden Leerzeichen aus ausgewählten Zellen zu entfernen.


In Verbindung stehender Artikel:

Beste Office-Produktivitätstools

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

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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This function handles two problems that the given solution doesn't cover:
1. non-English text (with diacritical marks)
2. successive capitals that should not have spaces after them

` Private Function AddSpaces(sText As String)As String
' Inserts a space immediately before a capital letter, except when successive characters are each capitalized.
' Last Updated: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Left(sText, 1)
For i = 2 To Len(sText)
sChar = Mid(sText, i, 1)
If sChar = UCase(sChar) And Not bPrevWasUCase Then
sRet = sRet & " " & sChar
bPrevWasUCase = True
Else
sRet = sRet & sChar
bPrevWasUCase = False
End If
Next i

AddSpaces= sRet
End Function`
This comment was minimized by the moderator on the site
Hello friend,

Thanks for your share. I tried your VBA code, but it doesn't work. Our VBA code can handle the non-english text. I have test the french text and spaces are successfully inserted before the capital letters.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hello

First thanks a lot for your code example and the explanations. It works very well for my case.

I just have 1 Problem, some of the Strings contain words like URL, which should not be seperated.
Do you see a way to except for example "URL" from adding spaces?

Would be very nice if you can help. I tried already a while, but i dont know how to solve this..


Best regards
luca
This comment was minimized by the moderator on the site
hi wanna ask you if you found solution for you case, if you found solution please provide me with that
This comment was minimized by the moderator on the site
Hi,
Thanks for your comment and advice. I have sent your suggestion to the Kutools project team, I’m sure they’ll improve it soon.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
Hi there, your code works fantastic. Do you know how to adapt code 20140723 to work on multiple sheets? I would like to add spaces between capital letters throughout the entire workbook. Thanks!
This comment was minimized by the moderator on the site
i need a help in excel i want to find Uppercase in a cell. for example: Sagar Paul MBA 16:04 i want MBA to be highlighted
This comment was minimized by the moderator on the site
I hope you can see it and give it a trial. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1).Text If Asc(xChar) > 64 And Asc(xChar) < 91 Then xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations