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“,

Sie möchten jedoch 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. Wählen Sie im Menü Daten die Option Text in Spalten. Excel startet den Assistenten zum Konvertieren von Text in Spalten. (Siehe Abbildung 1.)

  3. 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 FirstCol As Integer, FirstRow As Integer     Dim RowCount As Integer     Dim ThisRow As Integer     Dim j As Integer, k As Integer     Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column     FirstRow = ActiveWindow.RangeSelection.Row     RowCount = ActiveWindow.Selection.Rows.Count

For j = 1 To RowCount         ThisRow = FirstRow + j - 1         MyText = Cells(ThisRow, FirstCol).Text         k = InStr(MyText, " ")

If k > 0 Then             Cells(ThisRow, FirstCol + 1).Value = Mid(MyText, k + 1)

Cells(ThisRow, FirstCol).Value = Left(MyText, k - 1)

End If     Next j 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 ist, sicherzustellen, dass Sie In der Spalte rechts von den Zellen, die Sie beim Ausführen auswählen, befindet sich nichts.

_Hinweis: _

Wenn Sie wissen möchten, wie die hier beschriebenen Makros verwendet werden Seite (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 (2967) gilt für Mic rosoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier:

Zellen auseinander ziehen.