Wie fügt man Text in die Mitte markierter Zellen in Excel ein?
Text hinzufügen in die Mitte markierter Zellen in Excel einzufügen, ist eine praktische Technik zur Organisation und Darstellung von Daten. In dieser Anleitung erhalten Sie klare, schrittweise Anweisungen dazu, wie Sie Neuer Text innerhalb des bestehenden Inhalts von Zellen mithilfe der integrierten Funktionen und Features von Excel einfügen können.
Text hinzufügen in der Mitte der markierten Formel
In diesem Abschnitt stellen wir Ihnen die Formel bereit, mit der Sie Text in die Mitte markierter Zellen einfügen können. Gehen Sie dazu wie folgt vor:
1. Diese Methode sollte mithilfe einer Hilfsspalte durchgeführt werden. Wählen Sie die leere Zelle neben Ihren Originaldaten aus – hier beispielsweise Zelle B2.
2. Kopieren Sie die Formel =LINKS(A2;1) & „D" & TEIL(A2;2;100) in die Formelleiste und drücken Sie anschließend die Eingabetaste. Siehe Screenshot:
Hinweise:
- 1). In der Formel gibt die Zahl 1 an, dass der Text nach dem ersten Zeichen der Zelle eingefügt wird.
- 2). Die Zahlen 2 und 100 geben an, dass die Zeichen vom zweiten bis zum hundertsten der ursprünglichen Zelle nach dem neu eingefügten Text angefügt werden.
- 3). Wenn Sie Text nach dem zweiten Zeichen einfügen möchten, ändern Sie in der Formel bitte die Zahl 1 in 2 und die Zahl 2 in 3.
- 4). Das Zeichen „D“ ist der Text, den Sie der Zelle hinzufügen. Passen Sie ihn ganz einfach an Ihre Anforderungen an.
3. Wählen Sie die Zelle B2 aus und ziehen Sie das Ausfüllkästchen nach unten bis zur Zelle, die Sie mit dieser Formel erfassen möchten. Sie sehen, wie der Text automatisch zentriert in alle Zellen der Liste eingefügt wird.
Tipps: Neben der obigen Formel können Sie auch diese verwenden: =REPLACE(A2,2,0,„D"). (Die Zahl „2“ gibt die Position an, an der der Text eingefügt werden soll, und der Buchstabe „D“ steht für den einzufügenden Text – beides können Sie ganz nach Ihren Anforderungen anpassen.) Drücken Sie anschließend die Eingabetaste, um das Ergebnis zu erhalten.
Text hinzufügen in der Mitte markierter Zellen mit Kutools für Excel
Geben wir ruhig zu: Die beiden oben genannten Methoden sind für uns umständlich. Im Folgenden zeige ich Ihnen das Text hinzufügen-Tool von Kutools für Excel. Mit diesem Tool legen Sie mühelos die mittlere Position Ihrer Liste fest und fügen den gewünschten Text gleichzeitig an dieser Stelle für die gesamte Liste ein.
1. Markieren Sie die Liste, in deren Zellen Sie Text in der Mitte einfügen möchten, und klicken Sie dann auf Kutools > Text > Text hinzufügen. Siehe Screenshot:
2. Geben Sie im Dialogfeld Text hinzufügen den Text, den Sie den Zellen hinzufügen möchten, in das Feld Text ein, legen Sie die Position fest, an der der Text eingefügt werden soll, indem Sie die Option Angeben aktivieren (hier gebe ich die Zahl 1 ein), und klicken Sie anschließend auf die Schaltfläche OK. (Sie können das Einfügeergebnis sofort im rechten Feld vorschauen.)
Hinweis: Um Text an mehreren Positionen markierter Zellen gleichzeitig einzufügen, geben Sie die Positionen durch Kommas getrennt im Feld Angeben ein. Siehe Screenshot:
Der angegebene Text wurde nun nach dem ersten Buchstaben in der markierten Liste eingefügt.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Text hinzufügen in der Mitte markierter Zellen mit VBA-Code
Außerdem können Sie mithilfe eines VBA-Codes Text in der Mitte markierter Zellen einfügen.
1. Drücken Sie bitte Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein.
VBA-Code: Text hinzufügen nach dem ersten Zeichen in eine Liste von Daten einfügen
Sub AddString()
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, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
Next
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld KutoolsforExcel den Bereich aus, in den Sie Text einfügen möchten, und klicken Sie abschließend auf die Schaltfläche OK.
Nun wurde der angegebene Text nach dem ersten Zeichen in den markierten Zellen eingefügt.
Hinweis: Im obigen Code fügen Sie einen bestimmten Wert nach dem ersten Zeichen innerhalb der Zelle ein. Wenn Sie den Text stattdessen nach dem zweiten Zeichen einfügen möchten, ändern Sie die Zahlen 1 und 2 einfach in 2 und 3 im folgenden Skript:VBA.Links(Rng.Value, 1) & „D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1). Der Buchstabe „D“ ist dabei der neue Text, den Sie einfügen möchten.
Diese Anleitung stellt Ihnen drei Methoden vor, um dies zu erreichen: mithilfe von Excel-Formeln, mit dem Add-In
Verwandter Artikel:.
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