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.

Demo: Fügen Sie bestimmte Zeichen alle x Zeichen mit Kutools für Excel in eine Zelle ein