So fügen Sie alle X Zeichen bestimmte Zeichen in Excel-Zellen ein
In Excel kann das manuelle Einfügen von Trennzeichen wie Bindestrichen oder anderen festgelegten Zeichen an bestimmten Positionen innerhalb von Textzeichenfolgen eine zeitaufwendige Aufgabe sein. So erfordert beispielsweise das Einfügen eines Bindestrichs nach jeweils vier Zeichen in mehreren Zellen einen effizienten Lösungsansatz. Dieser Artikel stellt zwei einfache Methoden vor: die Nutzung von VBA-Code oder das „Text hinzufügen“-Tool in Kutools für Excel, um Zeichen nahtlos in regelmäßigen Abständen einzufügen.
Bestimmtes Zeichen alle x Zeichen mithilfe von VBA-Code in Zelle einfügen
Bestimmtes Zeichen alle x Zeichen mithilfe von Kutools für Excel in Zelle einfügen
Bestimmtes Zeichen alle x Zeichen mithilfe von VBA-Code in Zelle einfügen
Sie können den folgenden VBA-Code verwenden, um nach jeweils vier Zeichen ein bestimmtes Zeichen in Zellen einzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie in Excel die Tasten ALT + F11 gedrückt – dadurch öffnet sich das Fenster Microsoft Visual Basic für Applikationen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modul-Fenster ein.
VBA-Code: Bestimmtes Zeichen alle x Zeichen in Zelle einfügen
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Drücken Sie die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie den Datenbereich auswählen, in dessen Textzeichenfolgen ein bestimmtes Zeichen eingefügt werden soll. Siehe folgenden Screenshot:
4. Klicken Sie dann auf OK. Geben Sie im nächsten Eingabefeld die Zahl ein, nach der das jeweilige Zeichen eingefügt werden soll. Siehe Screenshot:
5. Klicken Sie erneut auf OK, und geben Sie im daraufhin angezeigten Eingabefeld das Zeichen ein, das Sie dem Text hinzufügen möchten. Siehe Screenshot:
6. Klicken Sie auf die Schaltfläche OK und wählen Sie im Eingabefeld eine Zelle aus, in der das Ergebnis angezeigt werden soll. Siehe Screenshot:
7. Klicken Sie abschließend auf OK. Das angegebene Zeichen wird nun nach jeweils vier Zeichen in jede Textzeichenfolge eingefügt. Siehe folgenden Screenshot:
Bestimmtes Zeichen alle x Zeichen mithilfe von Kutools für Excel in Zelle einfügen
VBA-Code kann für Excel-Anfänger eine Herausforderung sein. Hier ist eine einfachere Alternative: Kutools für Excel. Mit der Funktion Text hinzufügen fügen Sie im Handumdrehen bestimmten Text oder Zeichen vor, nach oder an festgelegten Positionen in Ihren Zellinhalten hinzu.
1. Wählen Sie den Datenbereich aus, in den Sie ein bestimmtes Zeichen einfügen möchten.
2. Klicken Sie anschließend auf Kutools > Text > Text hinzufügen. Siehe Screenshot:
3. Geben Sie im Dialogfeld Text hinzufügen das einzufügende Zeichen in das Feld Text ein. Wählen Sie im Abschnitt Position die Option Angeben und tragen Sie die gewünschten Positionen ein, an denen das Zeichen eingefügt werden soll. Das Ergebnis können Sie direkt im rechten Bereich in Echtzeit überprüfen. Siehe folgenden Screenshot:
Tipp: Hier habe ich „4,8,12“ in das Eingabefeld von Angeben eingegeben – das bedeutet, dass der festgelegte Text nach dem 4., 8. und 12. Zeichen der Zeichenfolge eingefügt wird.
4. Klicken Sie anschließend auf die Schaltfläche OK oder Übernehmen. Das angegebene Zeichen wurde nun an den festgelegten Positionen in die Zellinhalte eingefügt.
 |  |  |
Klicken Sie hier, um weitere Details zu diesem Tool zum Hinzufügen von Text zu erfahren.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Bestimmtes Zeichen alle x Zeichen mithilfe von Kutools für Excel in Zelle einfügen
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