Wie kann man Text in einer Zelle in Excel neu anordnen?

Angenommen, Sie haben eine Tabelle mit einer langen Liste von Namen im Format „Nachname Vorname“ und möchten nun alle Namen in das Format „Vorname, Nachname“ umstellen. Wie können Sie dies erreichen? Dieser Artikel stellt drei Methoden zur Lösung des Problems vor.

Text in einer Zelle mit Formel neu anordnen
Text in einer Zelle mit VBA-Code neu anordnen
Text in einer Zelle schnell mit Kutools für Excel neu anordnen

Text in einer Zelle mit Formel neu anordnen

Die folgende Formel kann Ihnen helfen, den Nachnamen und Vornamen in einer Zelle in Excel zu vertauschen. Gehen Sie wie folgt vor.

1. Wählen Sie eine leere Zelle aus, um den neu angeordneten Text auszugeben, geben Sie die folgende Formel ein und drücken Sie dann die Eingabetaste.

=TRIM(MID(b2;SUCHEN(" ";b2)+1;250))&" "&LINKS(b2;SUCHEN(" ";b2)-1)

Hinweis: In der Formel ist B2 die Zelle, die den Namen enthält, den Sie neu anordnen möchten. Bitte ändern Sie es entsprechend Ihren Bedürfnissen.

2. Behalten Sie die Auswahl der Ergebniszelle bei und ziehen Sie den Ausfüllkästchen nach unten, um alle Namen wie im folgenden Screenshot gezeigt umzukehren.

Text in einer Zelle mit VBA-Code neu anordnen

Darüber hinaus können Sie den folgenden VBA-Code verwenden, um alle Namen in einer Liste auf einmal in Excel umzukehren. Gehen Sie wie folgt vor.

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

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Text in einer Zelle neu anordnen

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Dann erscheint ein Dialogfeld von Kutools für Excel. Wählen Sie die Namensliste aus, die Sie neu anordnen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Alle Einträge im Format „Nachname Vorname“ in der ausgewählten Liste werden sofort umgekehrt.

Text in einer Zelle schnell mit Kutools für Excel neu anordnen

Dieser Abschnitt stellt das Dienstprogramm Reverse Text Order von Kutools für Excel vor, um Ihnen zu helfen, Text in einer Zelle neu anzuordnen.

1. Wählen Sie die Namensliste aus, in der Sie „Nachname Vorname“ umkehren möchten, und klicken Sie dann auf Kutools > Text > Reverse Text Order. Siehe Screenshot:

2. Aktivieren Sie im Dialogfeld Reverse Text die Option Leerzeichen und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Dann werden alle Namen in der ausgewählten Liste auf einmal neu angeordnet.

Verwandte Artikel:

• Wie kann man Tag und Monat eines Datums in Excel tauschen oder umkehren?
• Wie kann man Text innerhalb einer Zelle in Excel tauschen oder verschieben?