Wie kann man eine Adressliste in Excel schnell von Zeilen in Spalten transponieren?
Angenommen, Sie verfügen über eine einzelne Liste mit Namen und Adressen und müssen diese in Spalten umwandeln, wie in der folgenden Abbildung dargestellt. Excel bietet hierfür keine integrierte Funktion, aber dieser Artikel stellt einige schnelle Methoden zur Lösung dieses Problems vor.
Transponieren Sie Adressliste mithilfe von VBA
Transponieren Sie Adressliste mithilfe von Kutools für Excel
Transponieren Sie Adressliste mithilfe von VBA
Um eine Adressliste von Zeilen in Spalten zu transponieren, können Sie einen VBA-Code verwenden.
1. Öffnen Sie das Arbeitsblatt mit den zu transponierenden Daten und drücken Sie die Tastenkombination Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Makrocode in das Modul ein. Siehe Abbildung:
VBA: Transponieren Sie Adressliste
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Drücken Sie die F5-Taste, um den Code auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie aufgefordert werden, den gewünschten Datenbereich auszuwählen. Siehe Abbildung:
4. Klicken Sie auf OK und wählen Sie im nächsten Dialogfeld eine Zelle aus, an der das transponierte Ergebnis platziert werden soll. Siehe Abbildung:
5. Klicken Sie auf OK. Die einzelne Liste wurde nun in Spalten transponiert.
Transponieren Sie Adressliste mithilfe von Kutools für Excel
Wenn Sie Kutools für Excel installiert haben, können Sie die Funktion Bereich transformieren nutzen, um Ihre Adressliste im Handumdrehen in Spalten zu transponieren.
1. Wählen Sie die zu transponierenden Daten aus, und klicken Sie auf Kutools > Bereich > Bereich transformieren. Siehe Abbildung:
2. Aktivieren Sie im erscheinenden Dialogfeld im Abschnitt Transformationsart die Option Einzelne Spalte zu Bereich und aktivieren Sie zudem die Option Fester Wert. Geben Sie anschließend die gewünschte Zahl in das rechte Textfeld ein. Siehe Abbildung:
3. Klicken Sie auf Ok und wählen Sie eine Zelle aus, an der das transponierte Ergebnis platziert werden soll. Siehe Abbildung:
4. Klicken Sie auf OK. Die Adressliste wurde transponiert.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Transponieren Sie Adressliste mithilfe von Kutools für Excel
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