Wie fügt man einem Zellbereich in Excel ein Präfix oder Suffix hinzu?

Mit der Excel-VERKETTEN-Funktion fügen Sie im Handumdrehen ein Präfix oder Suffix zu einer einzelnen Zelle hinzu.

1. Geben Sie die Funktion =CONCATENATE(„Food - ",A1) in eine leere Zelle ein, z. B. Zelle C1, und ziehen Sie anschließend den AutoAusfüllen-Griff dieser Zelle über den gewünschten Bereich. Alle Zellen wurden nun um den angegebenen Präfix-Text ergänzt. Siehe Screenshot:

Sie können die VERKETTEN-Funktion verwenden, um wie folgt ein Präfix, ein Suffix oder beides einzufügen:

Möglicherweise sind Sie mit Funktionen und VBA-Code in Excel nicht vertraut. Mit dem Add Text-Tool von Kutools for Excel fügen Sie im Handumdrehen ein Präfix oder Suffix zu jedem beliebigen ausgewählten Bereich hinzu.

1. Wählen Sie die Zellen aus, denen Sie ein Präfix oder Suffix hinzufügen möchten, und klicken Sie auf KutoolsKutools > > Add Text Text Add Text.

2. Geben Sie im Dialogfeld Add Text Ihr Präfix oder Suffix in das Feld Text ein, aktivieren Sie je nach Bedarf die Option Before first character (zum Hinzufügen eines Präfix) oder After last character (zum Hinzufügen eines Suffix) und klicken Sie auf die Schaltfläche Ok.
Das angegebene Präfix oder Suffix wird nun sofort allen ausgewählten Zellen hinzugefügt. Siehe Screenshot:

Sie können dieses Problem auch mit folgendem VBA-Code lösen:

1. Wählen Sie den Bereich aus, in den Sie das Präfix oder Suffix einfügen möchten.

2. Klicken Sie auf Developer > Visual Basic Visual Basic – es öffnet sich ein neues Microsoft Visual Basic for applications-Fenster. Anschließend wählen Sie InsertInsert > Module und geben den folgenden Code ein:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Klicken Sie anschließend auf die Schaltfläche Run oder drücken Sie die Taste F5, um das VBA-Skript auszuführen.

4. Geben Sie im ersten KutoolsforExcel-Dialogfeld den Bereich an, für den Sie ein Präfix oder Suffix hinzufügen möchten, und klicken Sie auf die Schaltfläche OK. Geben Sie anschließend im zweiten KutoolsforExcel-Dialogfeld das gewünschte Präfix oder Suffix ein und bestätigen Sie mit einem Klick auf OK. Sehen Sie sich dazu die folgenden Screenshots an:
     
Das angegebene Präfix oder Suffix wurde nun jeder ausgewählten Zelle hinzugefügt – wie im folgenden Screenshot gezeigt:

Text hinzufügen am Anfang oder Ende aller Zellen hinzufügen

Textzeichenfolgen zu mehreren Zellen hinzufügen

führende Nullen zu Zahlen oder Text hinzufügen