Excel fügt Nach Text und Zahl aufteilen an einer festgelegten Position in die Zelle ein

In Excel ist das Hinzufügen von Text oder Zahlen zu Zellen eine alltägliche Aufgabe – etwa das Einfügen von Leerzeichen zwischen Vornamen und Nachnamen, das Hinzufügen eines Präfixes oder Suffixes zu Zellinhalten oder das Einsetzen von Bindestrichen in Sozialversicherungsnummern. Dieses Tutorial listet nahezu alle gängigen Szenarien für das Hinzufügen in Excel auf und liefert die passenden Methoden dazu.

Hinweis

In diesem Tutorial erstelle ich einige Beispiele, um die Methoden zu veranschaulichen. Sie können die Bezüge ganz einfach an Ihre Anforderungen anpassen – entweder, indem Sie den unten stehenden VBA-Code oder die Formeln nutzen, oder indem Sie die Beispieldateien herunterladen und die Methoden direkt ausprobieren.

Klicken Sie hier, um die Beispieldatei herunterzuladen

Dieser Abschnitt listet verschiedene Methoden auf, um Zeichen wie im folgenden Screenshot gezeigt am Anfang jeder Zelle hinzuzufügen:

1,1 Am Anfang von Zellen mithilfe einer Formel hinzufügen

Hier können Sie eine der folgenden drei Formeln wählen:

Formel 1: Verkettungsoperator „&“

Mehrere Texte mit dem kaufmännischen Und-Zeichen („&“) verknüpfen.

„Text"&Zelle

Formel 2: CONCATENATE-Funktion

Die CONCATENATE-Funktion verknüpft Texte miteinander.

CONCATENATE(„Text";Zelle)

Formel 3: CONCAT-Funktion

Diese Funktion ist neu und exklusiv in Excel 2019, Office 365 sowie Excel Online verfügbar.

CONCAT(„Text";Zelle)

In den allgemeinen Formeln steht „Zelle“ für den Zellbezug auf den Text, dem Sie ein Präfix hinzufügen möchten, und „Text“ für den Inhalt, der vor diesen Text gesetzt werden soll.

Am obigen Beispiel können Sie die Formeln in Formel-Leiste wie folgt verwenden:

„&“

=$E$3&B3oder =„Iphone"&B3

CONCATENATE-Funktion

=CONCATENATE($E$3;B3)oder =CONCATENATE(„Iphone",B3)

CONCAT-Funktion

=CONCAT($E$3;B3)oder =CONCAT(„Iphone",B3)

Drücken Sie die Eingabetaste, um das Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüll-Griff nach unten, um das Ergebnis auf alle Zellen des Bereichs B3:B6 zu übertragen.

1,2 Am Anfang von Zellen mithilfe der Blitzvorschau hinzufügen

Wenn Sie Excel 2013 oder eine neuere Version verwenden, füllt die leistungsstarke neue Funktion Blitzvorschau die Zellen automatisch basierend auf den darüber eingegebenen Zellen aus.

Wählen Sie eine Zelle neben dem ersten Originaldatensatz aus und geben Sie manuell das erste Datum mit dem Präfixtext wie unten gezeigt ein:

Geben Sie dann in der Zelle darunter das zweite Datum mit Präfixtext ein. Während der Eingabe erscheint eine graue Liste. Drücken Sie die Eingabetaste, um die Blitzvorschau zu aktivieren und die Daten automatisch ausfüllen zu lassen.

Wenn die Vorschauliste nicht generiert wird, wechseln Sie zur Registerkarte Start und klicken Sie auf Blitzvorschau, um sie manuell auszuführen.

1,3 Am Anfang von Zellen mithilfe von VBA-Code hinzufügen

Wenn Sie mit VBA-Code vertraut sind, finden Sie hier einen VBA-Code, um Text am Anfang jeder Zelle eines Bereichs hinzuzufügen.

1. Wählen Sie den Zellbereich aus, dem Sie den Präfixtext hinzufügen möchten, und drücken Sie anschließend Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie dann im erscheinenden Fenster auf Einfügen > Modul, um ein neues leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das neue Modul ein.

VBA: Am Anfang von Zellen hinzufügen

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4. Drücken Sie die F5-Taste oder klicken Sie im Fenster auf die Ausführen-Schaltfläche , um den VBA-Code auszuführen.

Nun wurde allen ausgewählten Zellen am Anfang der Text „iPhone“ hinzugefügt.

Neben dem Hinzufügen von Text an den Anfang von Zellen ist es auch üblich, Text ans Ende der Zellen anzufügen. Im Folgenden zeigen wir dies am Beispiel des Anhängens einer Einheit an jede Zelle, wie im nachstehenden Screenshot dargestellt:

2,1 Am Ende von Zellen mithilfe einer Formel hinzufügen

Hier können Sie eine der folgenden drei Formeln wählen:

Formel 1: Verkettungsoperator „&“

Mehrere Texte mit dem kaufmännischen Und-Zeichen („&“) verknüpfen.

Zelle&„Text"

Formel 2: CONCATENATE-Funktion

Die CONCATENATE-Funktion verknüpft Texte miteinander.

VERKETTEN(Zelle,„Text")

Formel 3: CONCAT-Funktion

Diese Funktion ist neu und exklusiv in Excel 2019, Office 365 sowie Excel Online verfügbar.

VERKETTEN(Zelle,„Text")

In den allgemeinen Formeln steht „Zelle“ für die Zellreferenz des Textes, dem Sie ein Suffix hinzufügen möchten, und „Text“ für den Inhalt, der der Zelle angehängt werden soll.

Am obigen Beispiel können Sie die folgenden Formeln in Formel-Leiste verwenden:

„&“

=B3&$E$3oder =B3&„Kg"

CONCATENATE-Funktion

=VERKETTEN(B3;$E$3)oder =CONCATENATE(B3, „Kg")

CONCAT-Funktion

=VERKETTEN(B3;$E$3)oder =CONCAT(B3, „Kg")

Drücken Sie die Enter-Taste, um das Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüllen-Griff nach unten, um den Text bis zum Ende des Bereichs B3:B6 in jede Zelle zu übertragen.

2,2 Am Ende von Zellen mithilfe von Blitzvorschau hinzufügen

Wenn Sie Excel 2013 oder eine neuere Version verwenden, steht Ihnen die leistungsstarke neue Funktion Flash Fill zur Verfügung – sie füllt Zellen automatisch basierend auf den darüber eingegebenen Werten aus.

Wählen Sie eine Zelle neben dem ersten Originaldatensatz aus und geben Sie manuell den ersten Datensatz mit dem Suffixtext ein, wie unten gezeigt:

Klicken Sie dann unter dem ersten Ergebnis auf Daten > Blitzvorschau, um die Zelle zu aktivieren; alle darunterliegenden Zellen – einschließlich der aktiven Zelle – werden automatisch ausgefüllt.

2,3 Am Ende von Zellen mithilfe von VBA-Code hinzufügen

Hier ist ein VBA-Code, mit dem Sie Text am Ende jeder Zelle eines Bereichs hinzufügen können.

1. Wählen Sie den Zellbereich aus, dem Sie den Suffixtext hinzufügen möchten, und drücken Sie anschließend Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie anschließend im erscheinenden Fenster auf Einfügen > Modul, um ein neues leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das neue Modul ein.

VBA: Am Ende von Zellen hinzufügen

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4. Drücken Sie F5, oder klicken Sie auf die Ausführen-Schaltfläche im Fenster, um den VBA-Code auszuführen.

Nun wurde am Ende jeder Zelle der Text „kg“ hinzugefügt.

Für die meisten Benutzer ist es einfach, Text an den Anfang oder das Ende von Zellen hinzuzufügen, während das Einfügen von Text in die Mitte einer Zelle etwas schwieriger sein kann. Nehmen Sie beispielsweise folgenden Fall: Wie im nachstehenden Screenshot gezeigt, soll nach dem zweiten Zeichen jeder Zelle im Bereich B3:B7 ein Trennzeichen – etwa ein Doppelpunkt „:“ – eingefügt werden.

3,1 Nach dem n-ten Zeichen einer Zeichenfolge mithilfe einer Formel hinzufügen

Ihnen stehen vier Formeln zur Verfügung, um diese Aufgabe zu erledigen – wählen Sie einfach die passende aus:

Formel 1: Kombination der Funktionen LINKS und RECHTS

LINKS(Zelle;n)&„Text"&RECHTS(Zelle;LÄNGE(Zelle)-n)

Formel 2: Kombination der Funktionen VERKETTEN, RECHTS und LÄNGE

VERKETTEN(LINKS(Zelle;n);„Text";RECHTS(Zelle;LÄNGE(Zelle)-n))

Oder

VERKETTEN(LINKS(Zelle;n);„Text";RECHTS(Zelle;LÄNGE(Zelle)-n))

Formel 3: WECHSELN-Funktion

WECHSELN(Zelle;n+1;0;„Text")

In den allgemeinen Formeln bezeichnet „Zelle“ die Zellreferenz des Textes, dem Sie Text hinzufügen in der Mitte hinzufügen möchten; „Text“ ist der hinzuzufügende Text, und „n“ ist die Zahl, die angibt, nach welchem Zeichen in der Zeichenfolge Sie Text hinzufügen möchten.

Um die oben genannte Aufgabe zu lösen, verwenden Sie bitte folgende Formeln:

Kombination der Funktionen LINKS und RECHTS

=LINKS(B3;2)&":"&RECHTS(B3;LÄNGE(B3)-2)oder =LINKS(B3;2)&$E$3&RECHTS(B3;LÄNGE(B3)-2)

Kombination der Funktionen VERKETTEN, RECHTS und LÄNGE

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))oder =CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

WECHSELN-Funktion

=REPLACE(B3, 2+1, 0, ":")oder =WECHSELN(B3;2+1;0;$E$3)

Drücken Sie die Enter-Taste, um das Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüllen-Griff nach unten, um den Text nach dem zweiten Zeichen in jeder Zelle des Bereichs B3:B7 hinzuzufügen.

3,2 Nach dem n-ten Zeichen einer Zeichenfolge mithilfe der Blitzvorschau hinzufügen

Wenn Sie Excel 2013 oder eine neuere Version verwenden, füllt die Funktion Blitzvorschau die Zellen automatisch basierend auf den darüberliegenden, von Ihnen eingegebenen Zellen aus.

Wählen Sie eine Zelle neben dem ersten Originaldatensatz aus und geben Sie manuell den ersten Datensatz mit einem Doppelpunkt nach dem zweiten Zeichen ein, wie unten gezeigt:

Drücken Sie dann auf die aktivierte Zelle unter dem ersten Ergebnis die Tastenkombination Strg+E, um den Befehl Blitzvorschau auszuführen – alle darunterliegenden Zellen, einschließlich der aktiven Zelle, werden automatisch ausgefüllt.

3,3 Nach dem n-ten Zeichen einer Zeichenfolge mithilfe von VBA-Code hinzufügen

Auch ein VBA-Code kann diese Aufgabe erledigen.

1. Drücken Sie Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie anschließend im erscheinenden Fenster auf Einfügen>Modul, um ein neues, leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das neue Modul ein.

VBA: In der Mitte von Zellen hinzufügen

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

4. Drücken Sie die F5-Taste oder klicken Sie auf die Ausführen-Schaltfläche im Fenster, um den VBA-Code auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie die Zellen auswählen können, denen Text hinzugefügt werden soll.

5. Klicken Sie auf OK. Der Text „:“ wurde nun nach dem zweiten Zeichen jeder Zelle im Bereich B19:B23 eingefügt.

Haben Sie genug von Formeln und VBA? Dann probieren Sie ein leistungsstarkes und benutzerfreundliches Tool aus: Kutools für Excel, das Ihnen mit seiner Funktion Text hinzufügen weiterhilft.

Diese Funktion Text hinzufügen ermöglicht Folgendes:

• Text hinzufügen Vor dem ersten Zeichen
• Text hinzufügen Nach dem letzten Zeichen
• Text hinzufügen an festgelegten Positionen
• Erweiterung
  Text hinzufügen Vor Großbuchstaben
  Text hinzufügen Vor Kleinbuchstaben
  Text hinzufügen Vor Groß- und Kleinbuchstaben
  Text hinzufügen Vor Zahlen

Wählen Sie die Zellen aus, denen Sie Text hinzufügen möchten, und wenden Sie „Text hinzufügen“ an, indem Sie auf Kutools > Text > Text hinzufügen klicken.

4,1 Text hinzufügen vor dem ersten Zeichen oder nach dem letzten Zeichen

Geben Sie im Dialogfeld Text hinzufügen den Text, den Sie den Zellen hinzufügen möchten, in das Textfeld Text ein und aktivieren Sie anschließend in der Sektion Vor dem ersten Zeichen die Option Position.

Klicken Sie auf Übernehmen oder OK, um das Hinzufügen abzuschließen.

Um Text nach dem letzten Zeichen hinzuzufügen, geben Sie den gewünschten Text im Textfeld Text ein und aktivieren Sie anschließend in der Sektion Nach dem letzten Zeichen die entsprechende Option Position.

Klicken Sie auf Übernehmen oder OK, um das Hinzufügen abzuschließen.

4,2 Text hinzufügen an festgelegter(n) Position(en)

Manchmal möchten Sie möglicherweise Text hinzufügen in die Mitte einer Zelle einfügen oder Text hinzufügen an mehrere Positionen innerhalb der Zelle. Angenommen, Sie möchten nach der dritten und siebten Ziffer der Sozialversicherungsnummern wie in folgendem Screenshot gezeigt das Trennzeichen „-“ hinzufügen:

Geben Sie im Text hinzufügen-Dialogfeld den gewünschten Text in das Text-Feld ein, aktivieren Sie die Option Angeben, tragen Sie anschließend die Positionen durch Kommas getrennt in das entsprechende Textfeld ein und klicken Sie auf OK oder Übernehmen.

4,3-Erweiterung des Text hinzufügen-Tools

Neben dem Text hinzufügen an normalen Positionen (Anfang, Ende und festgelegte Position) unterstützt das Text hinzufügen-Tool auch das Text hinzufügen

• Vor Großbuchstaben
• Vor Kleinbuchstaben
• Vor Groß- und Kleinbuchstaben
• Vor Zahlen

Geben Sie im Text hinzufügen-Dialogfeld den gewünschten Text in das Text-Feld ein, aktivieren Sie die Option Nur hinzufügen zu, und wählen Sie anschließend über das Dropdown-Menü darunter den gewünschten Vorgang aus.

Neben der Funktion Text hinzufügen bietet Kutools für Excel weitere 300+ nützliche Funktionen, die Sie bei verschiedenen Excel-Aufgaben unterstützen – laden Sie es jetzt kostenlos herunter.

Dieser Abschnitt stellt Formeln zum Text hinzufügen vor oder nach dem ersten Vorkommen eines bestimmten Textes in Excel bereit.

5,1 Text hinzufügen vor dem ersten bestimmten Text

Beispielsweise möchten Sie „(sale)“ vor dem ersten Vorkommen des Wortes „price“ in der Zelle wie in folgenden Screenshots gezeigt Text hinzufügen:

In Excel erledigen die Funktionen ERSETZEN und WECHSELN diese Aufgabe für Sie.

WECHSELN-Funktion

ERSETZEN(Zelle;FINDEN(„Suchtext";Zelle);0;„Einfügetext")

WECHSELN-Funktion

WECHSELN(Zelle;"Suchtext";„Ersetzungstext";1)

Verwenden Sie in diesem Fall die oben genannten Formeln wie folgt:

=REPLACE(B4,FIND("price",B4),0,„(sale)")

Oder

=SUBSTITUTE(B4,"price",„(sale)price",1)

Die Formelargumente lauten in diesem Fall:

Zelle: B4,

Suchtext: price,

Einfügetext: (sale),

Ersetzungstext: (sale)price.

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüll-Griff über alle Zellen, auf die sich die Formel beziehen soll.

5,2 Text hinzufügen nach dem ersten bestimmten Text

Beispielsweise möchten Sie das Währungssymbol „$“ nach dem ersten Doppelpunkt „:“ in der Zelle wie in folgenden Screenshots gezeigt hinzufügen:

In Excel erledigen die Funktionen ERSETZEN und WECHSELN diese Aufgabe mühelos.

WECHSELN-Funktion

ERSETZEN(Zelle;FINDEN(„Suchtext";Zelle);Länge_des_Suchtexts;„Ersetzungstext")

WECHSELN-Funktion

WECHSELN(Zelle;"Suchtext";„Ersetzungstext")

Verwenden Sie in diesem Fall die oben genannten Formeln wie folgt:

=REPLACE(B12,FIND(":",B12),1,„:$")

Oder

=SUBSTITUTE(B12,":",„:$")

Die Formelargumente lauten in diesem Fall:

Zelle: B12,

Suchtext: :,

Ersetzungstext::$.

Länge_des_Suchtexts:1

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüll-Griff über alle Zellen, auf die sich die Formel beziehen soll.

In diesem Teil des Tutorials stellen wir drei verschiedene Methoden vor – Formel, Suchen und Ersetzen sowie VBA –, mit denen Sie ganz einfach Zeichen vor oder nach jedem Wort in einer Zelle hinzufügen können.

Zeichen vor jedes Wort hinzufügen

Zeichen nach jedem Wort hinzufügen

6,1 Zeichen vor oder nach jedem Wort mithilfe einer Formel hinzufügen

Die WECHSELN-Funktion eignet sich ideal für diese Aufgabe. Die allgemeine Formel lautet wie folgt:

Vor jedes Wort einfügen

„Zeichen"&WECHSELN(Text; " ";„ Zeichen")

Nach jedem Wort einfügen

WECHSELN(Text;" ";"Zeichen ")&„Zeichen"

Angenommen, Sie möchten vor jedes Wort in der Liste B3:B6 ein „+“ einfügen – verwenden Sie dazu folgende Formel:

=„+"&SUBSTITUTE(B3, " "," +")

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüll-Griff nach unten, um alle Ergebnisse anzuzeigen.

Angenommen, Sie möchten nach jedem Eintrag in der Liste B11:B14 „($)“ einfügen – verwenden Sie dazu folgende Formel:

=SUBSTITUTE(B11," ","($) ")&„($)"

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie anschließend den AutoAusfüll-Griff nach unten, um alle Ergebnisse anzuzeigen.

6,2 Zeichen vor oder nach jedem Wort mithilfe von Suchen und Ersetzen hinzufügen

Wenn Sie Zeichen vor jedes Wort außer dem ersten oder nach jedes Wort außer dem letzten einfügen möchten – wie im folgenden Screenshot gezeigt –, übernimmt das integrierte Excel-Tool Suchen und Ersetzen diese Aufgabe.

Vor jedes Wort außer dem ersten einfügen

Nach jedem Wort außer Letzte Zelle einfügen

1. Markieren Sie die Zellen, in denen Sie Zeichen vor oder nach jedem Wort einfügen möchten, und drücken Sie anschließend die Tastenkombination Strg+H, um das Suchen und Ersetzen-Dialogfeld zu öffnen.

2. Geben Sie ein Leerzeichen in das Feld Suchen nach ein, dann das neue Zeichen zusammen mit einem Leerzeichen in das Feld Ersetzen durch und klicken Sie abschließend auf die Schaltfläche Alle ersetzen.

Hier finden Sie zwei VBA-Codes, mit denen Sie Zeichen vor oder nach jedem Wort hinzufügen können. Führen Sie den Code ganz einfach gemäß der folgenden Schritte aus.

1. Drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im erscheinenden Fenster auf Einfügen > Modul, um ein neues leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Modul ein.

Vor jedes Wort einfügen

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Nach jedem Wort einfügen

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Drücken Sie die Taste F5, um den Code auszuführen (alternativ können Sie auf die Schaltfläche)Ausführen klicken ). Anschließend erscheint ein Dialogfeld, in dem Sie aufgefordert werden, zusammenhängende Zellen für die Bearbeitung auszuwählen. Klicken Sie auf OK.

5. Geben Sie im zweiten erscheinenden Dialogfeld die Zeichen ein, die Sie hinzufügen möchten, und klicken Sie auf OK.

Anschließend werden die Zeichen am Anfang und am Ende jedes Wortes eingefügt.

Manchmal möchten Sie möglicherweise Text zwischen allen Zeichen einfügen. In diesem Abschnitt werden zwei Szenarien beschrieben: erstens das Einfügen von Text zwischen allen Zeichen und zweitens das Einfügen von Leerzeichen zwischen jeder Ziffer.

7,1 Text hinzufügen zwischen jedem Zeichen/jeder Ziffer mithilfe einer benutzerdefinierten Funktion

Um zwischen jedes Zeichen einer Zeichenfolge ein weiteres Zeichen einzufügen, hilft Ihnen eine benutzerdefinierte Funktion.

In diesem Fall fügen wir zwischen jedes Zeichen ein Leerzeichen ein.

1. Drücken Sie Alt+F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im erscheinenden Fenster auf Einfügen>Modul, um ein neues, leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Modul ein.

Text hinzufügen zwischen Zeichen

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Speichern Sie den Code und kehren Sie mit „Dieses Fenster schließen“ zum Arbeitsblatt zurück. Geben Sie anschließend in eine Zelle Ihrer Wahl – also dorthin, wo das Ergebnis erscheinen soll – folgende Formel ein.

=AddText(B3)

B3 ist die Zelle, die die Zeichenfolge enthält, bei der Sie Leerzeichen zwischen jedes Zeichen einfügen möchten.

5. Drücken Sie die Enter-Taste, um das Ergebnis zu erhalten, und ziehen Sie den AutoAusfüll-Griff über weitere Zellen, um zusätzliche Ergebnisse zu generieren.

7,2 Leerzeichen zwischen jeder Ziffer mithilfe einer Formel einfügen

Möchten Sie Leerzeichen zwischen die Ziffern einer numerischen Zeichenfolge einfügen, verwenden Sie einfach die TEXT-Funktion.

Angenommen, im Bereich B10:B12 befindet sich eine Liste achtstelliger Zahlen. Wählen Sie eine Zelle aus, in der das Ergebnis angezeigt werden soll, und geben Sie die folgende Formel ein:

=TEXT(B10,„# # # # # # # #")

Drücken Sie die Enter-Taste und ziehen Sie anschließend den AutoAusfüll-Griff über die restlichen Zellen.

Wenn die Zahlenlänge 5 beträgt, lautet die Formel stattdessen =TEXT(B10,„# # # # #").

Wenn Sie Zeichen zwischen jedes Wort einfügen möchten – beispielsweise ein Leerzeichen zwischen Vorname, zweiten Vornamen und Nachname, wie im folgenden Screenshot gezeigt – können Sie eine benutzerdefinierte Funktion verwenden.

1. Drücken Sie Alt+F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im erscheinenden Fenster auf Einfügen > Modul, um ein neues leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Modul ein.

Zeichen zwischen Wörtern einfügen

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
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
AddCharacters = xOut
End Function

4. Speichern Sie den Code und drücken Sie Dieses Fenster schließen, um zum Arbeitsblatt zurückzukehren. Geben Sie anschließend die folgende Formel in eine Zelle ein, in der das Ergebnis erscheinen soll.

=AddCharacters(B3)

B3 ist die Zelle, die die Zeichenfolge enthält, bei der Sie Leerzeichen zwischen den Wörtern einfügen möchten.

5. Drücken Sie die Enter-Taste, um das Ergebnis zu erhalten, und ziehen Sie den AutoAusfüll-Griff über weitere Zellen, um zusätzliche Ergebnisse zu generieren.

Um bestimmte Zeichen zwischen Text und Zahl wie im folgenden Screenshot gezeigt einzufügen, werden hier zwei Methoden vorgestellt.

9,1 Zeichen zwischen Nach Text und Zahl aufteilen mithilfe einer Formel einfügen

Wenn sich der Text vor den Zahlen befindet, lautet die allgemeine Formel:

GLÄTTEN(WECHSELN(Zeichenfolge;MIN(FINDEN({1,2,3,4,5,6,7,8,9,0};Zeichenfolge&"1234567890"));0;"-"))

Verwenden Sie am obigen Beispiel die folgende Formel:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie den AutoAusfüll-Griff über weitere Zellen, um die Formel automatisch auszufüllen.

Wenn sich die Zahlen vor dem Text befinden, lautet die allgemeine Formel:

LINKS(Zeichenfolge;SUMME(LÄNGE(Zeichenfolge)-LÄNGE(WECHSELN(Zeichenfolge;{0,1,2,3,4,5,6,7,8,9};""))))&"."&RECHTS(Zeichenfolge;LÄNGE(B13)- SUMME(LÄNGE(Zeichenfolge)-LÄNGE(WECHSELN(Zeichenfolge; {0,1,2,3,4,5,6,7,8,9}; „"))))

Verwenden Sie am obigen Beispiel die folgende Formel:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RECHTS(B13;LÄNGE(B13)- SUMME(LÄNGE(B13)-LÄNGE(WECHSELN(B13; {0;1;2;3;4;5;6;7;8;9}; „"))))

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie den AutoAusfüll-Griff über weitere Zellen, um die Formel zu übertragen.

9,2 Zeichen zwischen Nach Text und Zahl aufteilen mithilfe von Blitzvorschau einfügen

Wenn Sie Excel 2013 oder eine neuere Version verwenden, kann Ihnen auch die Blitzvorschau helfen, Zeichen einzufügen, um Text und Zahl zu trennen.

Geben Sie neben den Originaldaten die neuen Daten ein, bei denen bereits die Trennzeichen zwischen Text und Zahl eingefügt wurden. Drücken Sie anschließend die Enter-Taste, um zur nächsten Zelle unterhalb des ersten Ergebnisses zu wechseln.

Drücken Sie anschließend die Tastenkombination Strg+E, um die Blitzvorschau zu aktivieren.

Erweiterung

Dieses Tutorial stellt zudem einige Szenarien vor, in denen das Hinzufügen von Text im Alltag oder bei der Arbeit vorkommen kann.

Manchmal müssen Sie Trennzeichen wie Bindestriche in Seriennummern oder Sozialversicherungsnummern einfügen – wie im folgenden Screenshot veranschaulicht. Bei hunderten von Nummern wäre die manuelle Eingabe äußerst zeitaufwändig. In diesem Abschnitt stellen wir Ihnen drei clevere Methoden vor, um diese Aufgabe schnell und effizient zu erledigen.

10,1 Bindestriche mithilfe einer Formel zu Zahlen hinzufügen

Hier sind zwei Formeln, mit denen Sie im Handumdrehen Bindestriche zu Zahlen hinzufügen können. Um nach der dritten und sechsten Ziffer in Zelle B3 Bindestriche einzufügen, verwenden Sie eine der folgenden Formeln:

WECHSELN-Funktion

=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

TEXT-Funktion

=TEXT(B3,„???-???-??? ")

Drücken Sie die Enter-Taste, um das erste Ergebnis zu erhalten, und ziehen Sie den AutoAusfüll-Griff über weitere Zellen.

10,2 Bindestriche mithilfe von Zellenformat festlegen zu Zahlen hinzufügen

Um Bindestriche direkt in den ursprünglichen Zellen zu den Zahlen hinzuzufügen, können Sie die Zellenformat festlegen-Funktion verwenden.

1. Markieren Sie die Zahlen, denen Sie Bindestriche hinzufügen möchten, und drücken Sie anschließend die Tastenkombination Strg+1, um das Zellenformat festlegen-Dialogfeld zu öffnen.

2. Wählen Sie im Dialogfeld Zellenformat festlegen unter der Registerkarte Zahl im Bereich Kategorie die Option Benutzerdefiniert aus.

3. Geben Sie anschließend im rechten Bereich Typ die Zeichenfolge ###-###-### in das Textfeld ein und klicken Sie auf OK.

Die ausgewählten Zahlen sind jetzt mit Bindestrichen versehen.

10,3 Bindestriche zu Telefonnummer mithilfe der Text hinzufügen-Funktion von Kutools für Excel hinzufügen

Falls Sie Kutools für Excel in Excel installiert haben, kann Ihnen auch die Text hinzufügen-Funktion behilflich sein.

1. Markieren Sie die Zellen, die die Zahlen enthalten, denen Bindestriche hinzugefügt werden sollen, und klicken Sie auf Kutools>Text>Text hinzufügen.

2. Geben Sie im Dialogfeld Text hinzufügen den Bindestrich oder ein anderes Trennzeichen in das Textfeld Text ein, wählen Sie die Option Angeben und tragen Sie die Positionen, an denen Bindestriche eingefügt werden sollen, durch Kommas getrennt, in das darunterliegende Textfeld ein.

3. Klicken Sie auf OK oder „Übernehmen“. Die ausgewählten Zahlen wurden nun mit Bindestrichen versehen.

Laden Sie „Text hinzufügen“ kostenlos für eine 30-tägige Testversion herunter.

Angenommen, Sie haben eine Liste von Zahlen unterschiedlicher Länge und möchten führende Nullen hinzufügen, damit alle denselben Zeichenumfang besitzen und wie im folgenden Screenshot übersichtlich und einheitlich dargestellt werden. Dafür stehen Ihnen zwei Methoden zur Verfügung.

11,1 Führende Nullen mithilfe der Zellenformat festlegen-Funktion zu Zellen hinzufügen

Sie können die Zellenformat festlegen-Funktion nutzen, um ein benutzerdefiniertes Format festzulegen und die Zellenlänge durch führende Nullen zu vereinheitlichen.

1. Markieren Sie die Zellen, denen Sie führende Nullen hinzufügen möchten, und drücken Sie anschließend die Tastenkombination Strg+1, um das Dialogfeld Zellenformat festlegen zu öffnen.

2. Wählen Sie im Dialogfeld Zellenformat festlegenunter der Registerkarte Zahldie Option Benutzerdefiniertaus dem Bereich Kategorieaus.

3. Geben Sie anschließend im rechten Bereich Typ die Zeichenfolge 0000 in das Textfeld ein (um die Zahl auf eine Länge von 4 Stellen festzulegen, geben Sie „0000“ ein; Sie können dies auf eine andere Länge anpassen, z. B. „00000“ bei 5 Stellen), und klicken Sie auf OK.

Die Zahlen wurden nun mit führenden Nullen versehen und weisen dieselbe Länge auf.

11,2 Führende Nullen zu Formel hinzufügen

Wenn Sie die Originaldaten nicht verändern möchten, können Sie mithilfe einer Formel führende Nullen an anderen Stellen zu den Zahlen hinzufügen.

Dafür stehen Ihnen drei Funktionen zur Verfügung.

Formel 1: TEXT-Funktion

TEXT(Zahl;„00…")

Formel 2: RECHTS-Funktion

RECHTS(„00…"&ZahlLänge)

Formel 3: BASIS-Funktion

BASIS(Zahl;10;Länge)

Die Anzahl der Nullen in der Formel entspricht der gewünschten Länge der Zahl.

Da Sie hier eine Länge von 4 Stellen festlegen möchten, verwenden Sie bitte die folgenden Formeln:

=TEXT(B10,"0000")

=RIGHT("0000"&B10,4)

=BASIS(B10;10;4)

Drücken Sie die Enter-Taste und ziehen Sie den AutoAusfüll-Griff nach unten.

Möchten Sie Zahlen um nachgestellte Nullen ergänzen, um eine feste Länge zu erreichen – etwa die Zahlen in den Zellen B3:B7 auf eine fünfstellige Darstellung wie im folgenden Screenshot gezeigt –, lässt sich dies mithilfe einer Formel einfach umsetzen.

REPT-Funktion

Zahl&REPT("0",Länge-LÄNGE(Zahl))

In der Formel steht das Argument „Zahl“ für die Zahl oder die Zellreferenz, der bzw. dem Sie nachgestellte Nullen hinzufügen möchten, und das Argument „Länge“ gibt die gewünschte feste Gesamtlänge an.

Verwenden Sie bitte die Formel wie folgt:

=B3&REPT("0",5-LEN(B3))

Drücken Sie die Eingabetaste und ziehen Sie den AutoAusfüll-Griff nach unten auf die Zellen, die diese Formel benötigen.

Wenn Sie Daten aus einem Arbeitsblatt in einen Editor exportieren oder kopieren, wirken die Texte oft unübersichtlich, da die Zellinhalte unterschiedlich lang sind. Um sie wie im folgenden Screenshot klar und strukturiert darzustellen, fügen Sie einfach nachgestellte Leerzeichen hinzu.

Die REPT-Funktion unterstützt Sie bei der Lösung dieser Aufgabe.

LINKS(Text & REPT(„ ",Max_Länge),Max_Länge)

In der Formel steht das Argument „Text“ für den Text oder die Zellreferenz, dem bzw. der Sie nachgestellte Leerzeichen hinzufügen möchten, und das Argument „Max_Länge“ legt die feste Gesamtlänge fest, die alle Texte erreichen sollen – diese muss mindestens so lang sein wie der längste verwendete Text.

Um den Texten in den Zellen B3:C6 nachgestellte Leerzeichen hinzuzufügen, verwenden Sie bitte die folgende Formel:

=LEFT(B3 & REPT(„ ",10),10)

Drücken Sie die Eingabetaste, und ziehen Sie anschließend den AutoAusfüll-Griff auf alle Zellen, die diese Formel benötigen.

In diesem Fall ist der längste verwendete Text neun Zeichen lang; daher verwenden wir hier 10.

Manchmal müssen Sie Texte oder Zahlen in Zellen mit Anführungszeichen oder Klammern umgeben – wie im folgenden Screenshot gezeigt. Neben der manuellen, zeichenweisen Eingabe bietet Excel zwei schnelle Methoden, um dies effizient zu erledigen.

14,1 Anführungszeichen/Klammern mithilfe von Zellenformat festlegen hinzufügen

Möchten Sie Texte in Ihren Originaldaten mit Anführungszeichen versehen, hilft Ihnen die Funktion „Zellenformat festlegen“ in Excel.

1. Wählen Sie die Zellen aus, denen Sie Anführungszeichen hinzufügen möchten, und drücken Sie die Tastenkombination Strg+1, um das Dialogfeld Zellenformat festlegen zu öffnen.

2. Wählen Sie im Dialogfeld Zellenformat festlegen die Registerkarte Zahl aus, wählen Sie in der Liste unter der Kategorie Kategorie den Eintrag Benutzerdefiniert und geben Sie dann im rechten Bereich "''"@„''" in das Feld Typ ein. Klicken Sie anschließend auf OK.

Den Text in den ausgewählten Zellen wurden Anführungszeichen hinzugefügt.

Wenn Sie Klammern um den Text setzen möchten, verwenden Sie im Feld „Typ“ des Dialogfelds „Zellen formatieren“(@).

14,2 Anführungszeichen/Klammern mithilfe von Formeln hinzufügen

Formeln lassen sich ebenfalls nutzen, um Anführungszeichen zu Texten in anderen Zellen hinzuzufügen.

Verwendung des &-Operators

""""&Text&""„"

Oder

ZEICHEN(34)&Text&ZEICHEN(34)

In diesem Fall befindet sich der Text in Zelle B11; verwenden Sie bitte folgende Formeln:

=""""&B11&""""

Oder

=ZEICHEN(34)&B11&ZEICHEN(34)

Drücken Sie die Eingabetaste und ziehen Sie den AutoAusfüll-Griff nach unten, um die Zellen auszufüllen.

Möchten Sie einen Text in Klammern setzen, verwenden Sie die Formel "("&Text&„)".

14,3 Anführungszeichen/Klammern mithilfe von VBA hinzufügen

Sollten Sie zur Lösung dieser Aufgabe VBA-Code benötigen, finden Sie hier ein passendes VBA-Skript.

1. Drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.

2. Klicken Sie anschließend im erscheinenden Fenster auf Einfügen > Modul, um ein neues leeres Modul einzufügen.

3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das neue Modul ein.

VBA: Anführungszeichen um Texte setzen

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4. Drücken Sie die F5-Taste oder klicken Sie auf die Schaltfläche Ausführen, um den VBA-Code auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie die Zellen auswählen können, für die Anführungszeichen hinzugefügt werden sollen.

5. Klicken Sie auf OK. Die ausgewählten Zellen wurden nun mit Anführungszeichen umgeben.

Gelegentlich möchten Sie anderen Benutzern helfen, Daten besser zu verstehen, indem Sie Text in die Formelergebnisse einfügen – wie im folgenden Screenshot gezeigt. Um Text in eine Formel einzubinden, schließen Sie ihn in Anführungszeichen ein und verknüpfen ihn mithilfe des &-Operators mit der Formel.

Fall 1 Text hinzufügen vor der Formel

„Heute ist "&TEXT(HEUTE(),„dddd, mmmm dd.")

Fall 2 Text hinzufügen nachder Formel

TEXT(JETZT(),"HH:MM:SS")&„ ist die aktuelle Uhrzeit."

Fall 3 Text hinzufügen beidseitig der Formel

"Heute wurden "&Daten&„ kg verkauft."

---

Die besten Office-Produktivitätswerkzeuge

Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %

• Super-Formelleiste (müheloses Bearbeiten mehrerer Text- und Formelzeilen); Leseansicht (einfaches Lesen und Bearbeiten großer Zellmengen); Einfügen in Filterbereich...
• Zusammengeführte Zellen, Zeilen oder Spalten und deren Daten beibehalten; Zellen aufteilen – Inhalt erhalten;Doppelte Zeilen kombinieren und dabei Summe oder Mittelwert berechnen … Duplikate vermeiden – in Zellen;Bereiche vergleichen …
• Duplikate oder Eindeutige Zeilen auswählen;Leerzeilen auswählen (alle Zellen sind leer);Erweiterte und unscharfe Suche in vielen Arbeitsmappen; zufällige Auswahl …
• Exakte Kopie mehrerer Zellen, ohne Formelbezüge zu ändern; Automatische Erstellung von Bezügen auf mehrere Blätter; Aufzählungszeichen einfügen, Kontrollkästchen und vieles mehr …
• Favorisierte Formeln, Bereiche, Diagramme und Bilder schnell einfügen;Zellen mit Passwort verschlüsseln;Mailing-Liste erstellen und E-Mails versenden...
• Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen,Leerzeichen bereinigen; Statistiken zu Arbeitsblättern erstellen und drucken;Umwandlung zwischen Zellinhalt und Kommentaren...
• Super-Filter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweitertes Sortieren nach Monat, Woche, Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv …
• Arbeitsmappen und Arbeitsblätter kombinieren; Tabellen basierend auf einer Schlüsselspalte zusammenführen; Daten auf mehrere Blätter aufteilen; Batch-Konvertierung von XLS, XLSX und PDF...
• PivotTable-Gruppierung nach Kalenderwoche, Wochentag und mehr …Entsperrte anzeigen, Auswahl sperren farblich hervorheben;Zellen hervorheben, die Formeln oder Namen enthalten …

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen... 

---

Office Tab – bringt eine tabbasierte Oberfläche in Office und erleichtert Ihre Arbeit erheblich

• Aktiviert tabbasiertes Bearbeiten und Lesen in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und Erstellen mehrerer Dokumente in neuen Registerkarten innerhalb desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen...