Wie kann man Text innerhalb einer Zelle in Excel tauschen oder umstellen?

In vielen Fällen müssen Sie möglicherweise Text innerhalb einer einzelnen Zelle für bestimmte Zwecke umstellen. Zum Beispiel enthält eine Zelle den Namen Smith John, und Sie müssen den Text innerhalb der Zelle so ändern, dass der Name zu John Smith wird. Dieser Artikel listet einige Methoden auf, um dieses Problem zu lösen.

Text innerhalb einer Zelle mit einer Formel tauschen oder umstellen
Text innerhalb einer Zelle mit VBA-Code tauschen oder umstellen
Text innerhalb einer Zelle ganz einfach mit Kutools für Excel tauschen oder umstellen>

Text innerhalb einer Zelle mit einer Formel tauschen oder umstellen

Die folgende Formel kann Ihnen helfen, Text innerhalb einer Zelle in Excel zu tauschen. Gehen Sie bitte wie folgt vor.

1. Wählen Sie eine leere Zelle aus, um die getauschten Daten zu platzieren, geben Sie die Formel in die Formel-Leiste ein, und drücken Sie dann die Eingabetaste. Siehe Screenshot:

=RECHTS(A2;LÄNGE(A2)-FINDEN(" ";A2)) & " " & LINKS(A2;FINDEN(" ";A2)-1)

2. Wählen Sie die Ergebniszelle aus, ziehen Sie dann das Ausfüllkästchen nach unten, um die restlichen Ergebnisse zu erhalten, wie im folgenden Screenshot gezeigt.

Dann können Sie sehen, dass Vorname und Nachname in den angegebenen Zellen getauscht wurden.

Hinweis: Diese Methode kann nur zwei Texte innerhalb einer Zelle tauschen, die durch Leerzeichen getrennt sind.

Text innerhalb einer Zelle mit VBA-Code tauschen oder umstellen

Wie im obigen Beispiel gezeigt, können Sie auch das folgende VBA-Skript ausführen, um Text innerhalb einer Zelle zu tauschen oder umzustellen.

1. Drücken Sie gleichzeitig 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 und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Text innerhalb einer Zelle tauschen oder umstellen

Sub res()
    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. Drücken Sie die Taste F5, um den Code auszuführen. Im erscheinenden Dialogfeld Kutools für Excel wählen Sie bitte den Bereich mit den Daten aus, die Sie tauschen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Dann können Sie sehen, dass die Texte in den angegebenen Namenszellen sofort getauscht werden.

Hinweis: Dieser Code kann auch zwei Wörter innerhalb einer Zelle, die durch Leerzeichen getrennt sind, korrekt tauschen.

Text innerhalb einer Zelle ganz einfach mit Kutools für Excel tauschen oder umstellen

Dieser Abschnitt empfiehlt das Werkzeug Text umkehren von Kutools für Excel, um Ihnen zu helfen, dieses Problem ganz einfach zu lösen. Gehen Sie bitte wie folgt vor.

1. Wählen Sie den Bereich aus, der die Texte enthält, die Sie tauschen möchten, und klicken Sie dann auf Kutools > Text > Text umkehren. Siehe Screenshot:

2. Geben Sie im Dialogfeld Text umkehren einen Trenner an, auf dessen Basis Sie die Texte tauschen möchten, im Abschnitt Trennzeichen. In diesem Fall wähle ich die Option Leerzeichen. Klicken Sie dann auf die Schaltfläche OK.

Dann können Sie sehen, dass die Daten in den ausgewählten Zellen sofort innerhalb derselben Zelle durch den angegebenen Trenner getauscht werden.

Verwandter Artikel:

• Wie kann man Tag und Monat eines Datums in Excel tauschen oder umkehren?