Wie druckt man eine lange Spalte in Excel auf einer einzigen Seite?
Angenommen, Sie haben eine lange Liste mit Daten in einer Spalte – etwa 200 Zeilen – und möchten diese drucken. Beim Drucken werden jedoch rund fünf Seiten benötigt, wobei nur eine schmale Spalte links gedruckt wird und rechts viel Platz ungenutzt bleibt. In Word lässt sich der Text mehrspaltig formatieren, doch Excel bietet diese Funktion nicht. Wie können Sie die lange Liste so auf einer einzigen Seite drucken, dass Papier gespart wird?
Lange Spalte mit Formel auf einer Seite drucken
Lange Spalte mit VBA-Code auf einer Seite drucken
Lange Spalte auf einer Seite mit Kutools für Excel drucken
Lange Spalte mit Formel auf einer Seite drucken
Hier stelle ich Ihnen eine erweiterte Formel zur Lösung dieses Problems vor. Gehen Sie folgendermaßen vor:
1. Geben Sie in einem neuen Arbeitsblatt Ihrer aktuellen Arbeitsmappe die Formel =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) in die Zelle A1 ein.
- Sheet1 ist das Arbeitsblatt, das die lange Liste enthält, die Sie in Spalten umwandeln möchten.
- 45 ist die Zeilennummer, ab der Sie die Daten in einer Spalte auflisten möchten.
- Das sind alles Variablen, die Sie ganz nach Ihren Anforderungen anpassen können.
2. Wählen Sie anschließend die Zelle A1 aus und ziehen Sie das Ausfüllkästchen nach unten bis Zeile 45. Ziehen Sie es dann weiter nach rechts, bis alle Daten angezeigt werden. Die lange Spalte wurde nun in mehrere Spalten aufgeteilt, sodass sie auf einer Seite eines neuen Arbeitsblatts Platz findet. Siehe Screenshot:
Lange Spalte mit VBA-Code auf einer Seite drucken
Der folgende VBA-Code unterstützt Sie ebenfalls dabei, eine lange Liste in mehrere Spalten aufzuteilen – so sparen Sie Papier und drucken Ihre Daten effizienter.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
Sub SingleToMultiColumn()
Dim rng As Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow As Long
Dim lRowSource As Long
Dim x As Long
Dim wks As Worksheet
Set rng = Application.InputBox _
(prompt:="Select the range to convert", _
Type:=8)
iCols = InputBox("How many columns do you want?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
If lRows * iCols <> lRowSource Then lRows = lRows + 1
Set wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 To iCols
Do While x <= lRows And lRow <= lRowSource
Cells(x, iCol) = rng.Cells(lRow, 1)
x = x + 1
lRow = lRow + 1
Loop
x = 1
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen, und wählen Sie im erscheinenden Dialogfeld die Liste aus, die Sie aufteilen möchten. Siehe Screenshot:
4. Klicken Sie auf OK und geben Sie die Anzahl der Spalten ein, in die Sie aufteilen möchten. Siehe Screenshot:
5. Klicken Sie dann auf OK, und die lange Spalte wird in fünf Spalten auf einem neuen Arbeitsblatt aufgeteilt. Siehe Screenshots:
 |  |  |
Lange Spalte auf einer Seite mit Kutools für Excel drucken
Sowohl die lange Formel als auch der VBA-Code könnten für Sie schwierig sein. Daher stelle ich Ihnen hier eine einfache und bequeme Methode zur Lösung dieses Problems vor: Die Funktion Kutools für Excel’s In Spalten aufteilen hilft Ihnen, die lange Spalte blitzschnell in mehrere Spalten aufzuteilen – für einen übersichtlichen und sinnvollen Druck.
Kutools für Excel umfasst mehr als 300 praktische Excel-Werkzeuge – testen Sie es jetzt kostenlos und uneingeschränkt 30 Tage lang! Jetzt herunterladen.
Nachdem Sie Kutools für Excel installiert haben, führen Sie die folgenden Schritte aus:
1. Klicken Sie auf KUTOOLS PLUS > In Spalten aufteilen. Siehe Screenshot:
2. Führen Sie im erscheinenden Dialogfeld Folgendes aus:
- Klicken Sie auf die erste
-Schaltfläche, um den Titel des Bereichs auszuwählen, und anschließend auf die zweite -Schaltfläche, um die Spalte auszuwählen, die Sie aufteilen möchten.
- Geben Sie dann unter Zeilen pro Seite die gewünschte Anzahl der Zeilen pro Seite an und tragen Sie unter Spalten pro Seite die Anzahl der Spalten ein, die auf einer Seite erscheinen sollen. Siehe Screenshot:
-Schaltfläche, um den Titel des Bereichs auszuwählen, und anschließend auf die zweite 
3. Klicken Sie anschließend auf OK, und die lange Liste wird auf einer Seite in fünf Spalten aufgeteilt. Siehe Screenshots:
 | |  |
- 1. Der Titel wird vor jede Spalte eingefügt.
- 2. Wenn Sie die Option Verknüpfung mit aktuellem Arbeitsblatt erstellen aktivieren, werden die Daten des neuen Arbeitsblatts mit den Quelldaten verknüpft.
- Wenn Sie mehr über diese Funktion erfahren möchten, klicken Sie bitte auf Mehrere Spalten drucken.
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