So fügen Sie bestimmte Zeichen alle X Zeichen in Excel-Zellen hinzu oder ein
In Excel kann das manuelle Hinzufügen von Trennzeichen wie Bindestrichen oder bestimmten Zeichen an mehreren Positionen in Textzeichenfolgen eine mühsame Aufgabe sein. Zum Beispiel erfordert das Einfügen eines Bindestrichs nach jeweils vier Zeichen in mehreren Zellen einen effizienten Ansatz. Dieser Artikel bietet zwei einfache Lösungen: die Verwendung von VBA-Code oder das Hilfsprogramm „Text hinzufügen“ in Kutools für Excel, um Zeichen in festen Abständen nahtlos einzufügen.
Fügen Sie bestimmte Zeichen alle x Zeichen mit VBA-Code in eine Zelle ein
Fügen Sie bestimmte Zeichen alle x Zeichen mit Kutools für Excel in eine Zelle ein
Fügen Sie bestimmte Zeichen alle x Zeichen mit VBA-Code in eine Zelle ein
Sie können den folgenden VBA-Code verwenden, um ein bestimmtes Zeichen nach jeweils vier Zeichen in Zellen einzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 in Excel gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Fügen Sie bestimmte Zeichen alle x Zeichen in eine Zelle ein
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 wird ein Eingabeaufforderungsfenster angezeigt, das Sie auffordert, den Datenbereich auszuwählen, in dem Sie ein bestimmtes Zeichen in die Textzeichenfolgen einfügen möchten. Siehe Screenshot unten:
4. Klicken Sie auf OK. Im nächsten Eingabeaufforderungsfenster geben Sie bitte die Zahl ein, nach der Sie das bestimmte Zeichen einfügen möchten. Siehe Screenshot:
5. Klicken Sie weiterhin auf OK. Im darauffolgenden Eingabeaufforderungsfenster geben Sie bitte das bestimmte Zeichen ein, das Sie zum Text hinzufügen möchten. Siehe Screenshot:
6. Klicken Sie auf die Schaltfläche OK und wählen Sie eine Zelle aus, in der Sie das Ergebnis im Eingabeaufforderungsfenster ausgeben möchten. Siehe Screenshot:
7. Klicken Sie abschließend auf OK. Das angegebene Zeichen wird nun in jede Textzeichenfolge nach jeweils vier Zeichen eingefügt. Siehe Screenshot unten:
Fügen Sie bestimmte Zeichen alle x Zeichen mit Kutools für Excel in eine Zelle ein
Der VBA-Code kann für Excel-Anfänger schwierig sein. Hier ist eine einfachere Alternative: Kutools für Excel. Mit seiner Funktion „Text hinzufügen“ können Sie schnell bestimmten Text oder Zeichen vor, nach oder an bestimmten Positionen in Zellwerten hinzufügen.
1. Wählen Sie den Datenbereich aus, in den Sie ein bestimmtes Zeichen einfügen möchten.
2. Klicken Sie dann auf Kutools > Text > Text hinzufügen. Siehe Screenshot:
3. Geben Sie im Dialogfeld „Text hinzufügen“ das Zeichen, das Sie einfügen möchten, im Textfeld ein. Wählen Sie unter dem Abschnitt Position die Option Angeben und geben Sie die Positionen ein, an denen das Zeichen eingefügt werden soll. Sie können das Ergebnis im rechten Bereich anzeigen. Siehe Screenshot unten:
Tipp: Hier gebe ich 4,8,12 im Textfeld „Angeben“ ein, was bedeutet, dass das spezifische Zeichen nach dem 4., 8. und 12. Zeichen der Textzeichenfolge eingefügt wird.
4. Klicken Sie dann auf die Schaltfläche OK oder Übernehmen. Das angegebene Zeichen wurde an den Zellenwerten an den gewünschten Positionen eingefügt.
 |  |  |
Klicken Sie hier, um weitere Details zu diesem Hilfsprogramm „Text hinzufügen“ zu erfahren.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Demo: Fügen Sie bestimmte Zeichen alle x Zeichen mit Kutools für Excel in eine Zelle ein
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins