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

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: InsertBlankRowsBetweenDataund 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 - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Kostenlose Testversion jetzt!

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 - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Hol es dir jetzt

Anmerkungen: 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:


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 (9)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich brauche Hilfe in Excel. Ich möchte Großbuchstaben in einer Zelle finden. Zum Beispiel: Sagar Paul MBA 16:04 Ich möchte, dass MBA hervorgehoben wird
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich hoffe, Sie können es sehen und ausprobieren. 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
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Ihr Code funktioniert fantastisch. Wissen Sie, wie Sie den Code 20140723 anpassen, um auf mehreren Blättern zu arbeiten? Ich möchte in der gesamten Arbeitsmappe Leerzeichen zwischen Großbuchstaben einfügen. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo

Erstmal vielen Dank für dein Codebeispiel und die Erklärungen. Es funktioniert sehr gut für meinen Fall.

Ich habe nur 1 Problem, einige der Strings enthalten Wörter wie URL, die nicht getrennt werden sollten.
Sehen Sie eine Möglichkeit, beispielsweise "URL" vom Hinzufügen von Leerzeichen auszunehmen?

Wäre sehr nett, wenn ihr helfen könnt. Ich habe es schon eine Weile versucht, aber ich weiß nicht, wie ich das lösen soll.


Freundliche Grüße
luca
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Danke für deinen Kommentar und Rat. Ich habe Ihren Vorschlag an das Kutools-Projektteam gesendet, ich bin sicher, dass sie ihn bald verbessern werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Eine Lösung gefunden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi, ich möchte Sie fragen, ob Sie eine Lösung für Ihren Fall gefunden haben. Wenn Sie eine Lösung gefunden haben, geben Sie mir diese bitte
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Diese Funktion behandelt zwei Probleme, die die gegebene Lösung nicht abdeckt:
1. nicht englischer Text (mit diakritischen Zeichen)
2. aufeinanderfolgende Großbuchstaben, die keine Leerzeichen haben sollten

` Private Funktion AddSpaces(sText As String)As String
' Fügt unmittelbar vor einem Großbuchstaben ein Leerzeichen ein, außer wenn aufeinanderfolgende Zeichen jeweils großgeschrieben werden.
' Zuletzt aktualisiert: 2022-07-04
'
Dim sRet als String, i als Integer, sChar als String, bPrevWasUCase als Boolean

sRet = Links(sText, 1)
Für i = 2 zu Len(sText)
sChar = Mid(sText, i, 1)
Wenn sChar = UCase(sChar) und nicht bPrevWasUCase gilt, dann
sRet = sRet & " " & sChar
bPrevWasUCase = True
sonst
sRet = sRet & sChar
bPrevWasUCase = False
End If
Weiter ich

AddSpaces= sRet
Funktion beenden‘
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Freund,

Danke für deinen Anteil. Ich habe Ihren VBA-Code ausprobiert, aber es funktioniert nicht. Unser VBA-Code kann den nicht-englischen Text verarbeiten. Ich habe den französischen Text getestet und Leerzeichen werden erfolgreich vor den Großbuchstaben eingefügt.

Mit freundlichen Grüßen
Mandy
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