Wie verschiebt man jede zweite Zeile in Excel in separate Spalten?
Beim Arbeiten mit Daten in Excel – insbesondere bei importierten oder unstrukturierten Datensätzen – stoßen Sie häufig auf Namen und zugehörige Werte, die vertikal in einer einzigen Spalte angeordnet sind. Um diese Daten übersichtlicher und besser nutzbar zu machen, empfiehlt es sich oft, sie in ein tabellarisches Format zu überführen, indem jede zweite Zeile in separate Spalten verschoben wird.
Jede zweite Zeile mithilfe von Formeln in eine Spalte verschieben
Dies ist eine einfache Methode, bei der die INDEX-Funktion von Excel genutzt wird, um abwechselnde Zeilen zu extrahieren und als Spalten darzustellen. Möchten Sie beispielsweise Namen in eine Spalte und das Alter in die danebenliegende Spalte übertragen, wenden Sie die folgenden Formeln an:
1. Geben Sie in Zelle C2 die folgende Formel ein und ziehen Sie sie bei Bedarf nach unten. Die Formel ruft den Wert aus jeder zweiten Zeile ab – beginnend mit Zeile 2 (Namen).
=INDEX($A:$A, (ROW(A1)-1)*2 + 2)
2. Geben Sie in Zelle D2 die folgende Formel ein, um die alternierenden Daten zu extrahieren, und ziehen Sie sie nach unten, um die Zellen automatisch auszufüllen.
=INDEX($A:$A, (ROW(A1)-1)*2 + 3)
- INDEX($A:$A; ...): Durchsucht Spalte A und gibt den Wert aus der angegebenen Zeilennummer zurück.
- ZEILE(A1): Gibt die aktuelle Zeilennummer zurück. In Zelle A1 liefert sie 1. Beim Herunterziehen der Formel ändert sich die Bezugszelle entsprechend zu A2 (Zeile 2), A3 (Zeile 3) usw.
- (ZEILE(A1)-1)*2 + 2: Damit wird die Zeilennummer berechnet, aus der der Wert aus Spalte A entnommen werden soll.
Die Formel ruft daher Werte aus A2, A4, A6, A8 … ab – also aus jeder zweiten Zeile, beginnend mit Zeile 2.
Jede zweite Zeile mithilfe von Kutools für Excel in eine Spalte verschieben
Wenn Sie eine benutzerfreundlichere Lösung ohne Formeln bevorzugen, bietet Kutools für Excel eine Funktion, mit der Sie Zeilen mühelos in Spalten transponieren können.
Führen Sie nach der Installation von Kutools für Excel die folgenden Schritte aus:
- Klicken Sie auf Kutools > Bereich > Bereich transformieren.
- Führen Sie im Dialogfeld Bereich transformieren die folgenden Einstellungen durch:
- Wählen Sie den Bereich aus, dessen jede zweite Zeile Sie verschieben möchten.
- Aktivieren Sie Einzelne Spalte zu Bereich im Abschnitt Transformationsart,
- Anschließend aktivieren Sie „Fester Wert“ und wählen dann „2“ aus der Liste aus oder geben es im Abschnitt „Zeilen pro Datensatz“ ein.
- Klicken Sie zum Abschluss auf die Schaltfläche „OK“.
- Wählen Sie im folgenden Eingabefeld eine einzelne Zelle aus, um das Ergebnis dort auszugeben (siehe Screenshot):
- Klicken Sie auf „OK“ – Kutools verschiebt jede zweite Zeile automatisch in separate Spalten.
Jede zweite Zeile mithilfe von VBA-Code in eine Spalte verschieben
Wenn Sie diese Aufgabe häufig ausführen müssen, automatisiert ein VBA-Makro den Prozess – für mehr Geschwindigkeit und Effizienz.
1. Drücken Sie gleichzeitig die Tasten Alt und F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie dann auf **Einfügen > Modul**, um ein neues Modulfenster einzufügen, und kopieren Sie anschließend den folgenden VBA-Code hinein.
VBA: Jede zweite Zeile in eine Spalte verschieben.
Sub MoveRange()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. Klicken Sie auf die Schaltfläche „Ausführen“ oder drücken Sie F5, um ein Dialogfeld zu öffnen, in dem Sie einen Bereich zum Verschieben auswählen können (siehe Screenshot):
4. Klicken Sie anschließend auf „OK“, um ein weiteres Dialogfeld anzuzeigen, in dem Sie eine Zelle für die Ausgabe des Ergebnisses auswählen können (siehe Screenshot):
5. Klicken Sie auf „OK“, und schon sehen Sie das Ergebnis wie folgt:
🎯 Fazit:
Jede Methode zum Verschieben jeder zweiten Zeile in Spalten in Excel hat ihre eigenen Vorteile – je nach Ihren Anforderungen:
- Formelmethode: Ideal für schnelle Einmalaktionen mit kleinen Datensätzen. Erfordert keine zusätzlichen Tools, kann sich bei größeren Bereichen jedoch verlangsamen.
- Kutools für Excel: Ideal für Anwender, die eine einfache, klickbasierte Lösung ohne komplexe Formeln oder Programmierung bevorzugen – mit einer intuitiven Oberfläche für schnelle Umwandlungen.
- VBA-Makro: Die beste Wahl zur Automatisierung und für wiederkehrende Aufgaben, insbesondere bei großen Datensätzen. Erfordert grundlegende Programmierkenntnisse, bietet aber maximale Flexibilität.
Wählen Sie die Methode, die Ihren Anforderungen am besten entspricht – egal, ob Sie mit einem kleinen Datensatz arbeiten oder eine skalierbare Lösung für größere Datensätze benötigen. Wenn Sie weitere Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen, um Excel zu meistern.
Verwandte Artikel:
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