Jede Zeile auf neues Blatt drucken in Excel
Schritt-für-Schritt-Anleitung
Um jede Zeile Deiner Excel-Liste auf einem neuen Blatt auszudrucken, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Excel und lade die Arbeitsmappe mit den Aufgaben.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinArbeitsblattname)", dann "Einfügen" > "Modul".
-
Kopiere und füge den folgenden Code ein:
Sub ttx()
'Aufgaben in Tabelle1!A:A
Dim wks As Worksheet, rngC As Range
Application.ScreenUpdating = False
With Sheets(1)
For Each rngC In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
Set wks = Worksheets.Add
wks.Cells(1, 1) = rngC
Next
End With
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Führe das Makro aus: Drücke ALT + F8, wähle ttx aus und klicke auf "Ausführen".
Nun wird für jede Zeile in Deiner Tabelle ein neues Blatt erstellt.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du kein VBA verwenden möchtest, gibt es eine einfachere Möglichkeit, jede Zeile auf einem neuen Blatt zu drucken:
- Setze Seitenumbrüche: Gehe zu "Layout" > "Umbrüche" > "Seitenumbruch einfügen" hinter jeder Zeile.
- Drucken: Wenn Du nun druckst, wird jede Zeile auf einer neuen Seite erscheinen.
Du kannst auch individuelle Zeilen drucken, indem Du den Druckbereich für jede Zeile festlegst.
Praktische Beispiele
-
VBA zur Erstellung von Blättern: Der oben angegebene VBA-Code erstellt automatisch neue Blätter, wenn Du eine große Liste hast.
-
Einzelne Zeilen drucken: Mit folgendem VBA-Code kannst Du jede Zeile einzeln drucken:
Dim a
For a = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
ActiveSheet.PageSetup.PrintArea = a & ":" & a
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
ActiveSheet.PageSetup.PrintArea = ""
Tipps für Profis
- Automatisierung: Du kannst die VBA-Skripte kombinieren, um sowohl neue Blätter zu erstellen als auch diese direkt auszudrucken.
- Formatierung: Stelle sicher, dass Du die Zeilen vor dem Drucken entsprechend formatierst, um ein ansprechendes Layout zu erhalten.
- Testdruck: Mach immer einen Testdruck eines Blattes, um sicherzustellen, dass alles korrekt ausgedruckt wird.
FAQ: Häufige Fragen
1. Muss ich VBA verwenden, um jede Zeile auf einem neuen Blatt auszudrucken?
Ja, VBA ist die effizienteste Methode, um dies zu automatisieren. Es gibt jedoch auch manuelle Methoden, wie das Setzen von Seitenumbrüchen.
2. Wie kann ich mehrere Blätter gleichzeitig drucken?
Wenn Du alle Blätter drucken möchtest, gehe zu "Datei" > "Drucken" und wähle "Drucken der gesamten Arbeitsmappe" aus.
3. Kann ich den Druckbereich vor dem Drucken anpassen?
Ja, Du kannst den Druckbereich unter "Seitenlayout" > "Druckbereich" festlegen.
4. Welche Excel-Versionen unterstützen diese Methoden?
Die meisten Methoden und VBA-Codes sind in Excel 2010 und neueren Versionen anwendbar.