Es ist Ihnen wahrscheinlich schon einmal passiert: Sie erhalten Daten für Ihr Arbeitsblatt, und eine der Spalten enthält Namen. Das einzige Problem ist, dass die Namen alle gebündelt sind. Zum Beispiel enthält die Zelle „Allen Wyatt“, aber Sie möchten lieber den Vornamen in einer Spalte und den Nachnamen in der benachbarten Spalte rechts haben. Wie ziehen Sie die Namen auseinander?

Sie können die Funktion „Text in Spalten“ in Excel problemlos verwenden, um Ihre Daten auseinander zu ziehen. Befolgen Sie einfach diese Schritte:

  1. Wählen Sie den Zellenbereich aus, den Sie teilen möchten.

  2. Zeigen Sie die Registerkarte Daten des Menübands an.

  3. Klicken Sie in der Gruppe Datenwerkzeuge auf das Werkzeug Text in Spalten. Excel startet den Assistenten zum Konvertieren von Text in Spalten. (Siehe Abbildung 1.)

  4. Wählen Sie aus, ob der ausgewählte Text eine feste Breite oder eine Begrenzung hat.

(Bei einem Leerzeichen zwischen Vor- und Nachname wird der Text begrenzt.)

  1. Klicken Sie auf Weiter.

  2. Geben Sie die Trennzeichen an, die Excel erkennen soll. Wenn Sie Namen auseinander ziehen, sollten Sie sicherstellen, dass Sie Leerzeichen als Trennzeichen verwenden.

  3. Klicken Sie auf Fertig stellen.

Excel zieht die Zellen in Ihrem ausgewählten Bereich auseinander und trennt den gesamten Text an dem von Ihnen angegebenen Trennzeichen. Excel verwendet jedoch viele Spalten, die zum Speichern der Daten erforderlich sind.

Wenn Sie Ihre Daten nicht vollständig über die Spalten verteilen möchten, müssen Sie ein Makro verwenden. Wenn eine Zelle beispielsweise „John Davis, Esq.“ Enthält, werden die Daten bei Verwendung der Funktion „Text in Spalten“ in drei Spalten aufgeteilt: Die erste enthält „John“, die zweite enthält „Davis“ (mit der Komma) und das dritte enthält „Esq.“ Wenn Sie die Daten lieber in zwei Spalten aufteilen möchten („John“ in einer und „Davis, Esq.“ In der anderen), ist das folgende Makro hilfreich:

Sub PullApart()

Dim Cell As Range     Dim k As Integer

For Each Cell In Selection         k = InStr(Cell, " ")

If k Then             Cell.Offset(0, 1) = Mid(Cell, k + 1)

Cell = Left(Cell, k - 1)

End If     Next End Sub

Dieses Makro untersucht jede Zelle und belässt alles bis zum ersten Leerzeichen in der ausgewählten Zelle und verschiebt alles nach dem Leerzeichen in die Spalte rechts. Das einzige „gottcha“ mit diesem Makro besteht darin, sicherzustellen, dass Sie haben nichts in der Spalte rechts von den Zellen, die Sie beim Ausführen auswählen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite beschriebenen Makros verwendet werden (oder auf einer anderen Seite der ExcelTips-Websites) habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen .

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9932) gilt für Micr osoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Zellen auseinander ziehen.