bestimmte Spalten drucken

Forumthread: bestimmte Spalten drucken

Maris

Hi Leute,
ich stehe nun mal wieder vor einem Problemchen. Ich möcht mit meinem Code nur bestimmte Spalten ausdrucken. Die letzte Zeile bestimmt sich aus Spalte B. Ich markiere mit dem Makro also die Spalten die nicht aneinanderliegen und und möchte Sie auf einer Seite zum ausdrucken zusammenführen. Anbei mein Code (leider weiß ich nicht wie ich noch die anderen Spaltenbereiche außer G mitangeben kann.) Die Tabelle besteht aus 2000 Zeilen.

Sub drucken1()
Dim letzteZeile As Long
Dim letzteZelle As Range
letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Range("G2:G" & letzteZeile).PrintOut Copies:=1, Collate:=True
'Range("G2:G2000,I2:L2000,R2:W2000,AH2:AH2000,AN2:AN2000") Spalten die gedruckt werden sollen  _
_
aber immer nur bis zur letzen Zeile aus Spalte B
End Sub

Viele Grüsse ausm Oberland
Maris

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: bestimmte Spalten drucken

Hajo_Zi
AW: bestimmte Spalten drucken

Mike

AW: bestimmte Spalten drucken

09.09.2010 08:57:47

Hajo_Zi

Hallo Maris,
jeder Bereich wird aber auff einer Extra Seite gedruckt. Soll es auf eine Seite, müssen die Spalten dazwischen ausgeblendet werden.
Für nur bestimmten Bereich, Druckbereich festlegen (Makrorecorder)

AW: bestimmte Spalten drucken

09.09.2010 09:14:03

Mike

Hallo Maris,
zumindest in 03 gabs die Möglichkeit "benutzerdefinierte Ansichten" abzuspeichern.
Dies würde sich für Dein Anliegen auch anbieten, ist dann makrofrei.
Gruss
Mike

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel nur bestimmte Spalten zu drucken, kannst Du ein Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Sub drucken1()
   Dim letzteZeile As Long
   letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
   ' Hier kannst Du die gewünschten Spalten angeben
   Range("G2:G" & letzteZeile & ",I2:L" & letzteZeile & ",R2:W" & letzteZeile).PrintOut Copies:=1, Collate:=True
End Sub

Passe den Code an, um die gewünschten Spalten hinzuzufügen. Achte darauf, dass Du nur die Spalten angibst, die Du drucken möchtest.
Führe das Makro aus, indem Du im VBA-Editor F5 drückst oder es über Entwicklertools > Makros in Excel auswählst.

Häufige Fehler und Lösungen

Problem: Die Spalten werden auf separaten Seiten gedruckt.
- Lösung: Blende die Spalten dazwischen aus, die Du nicht drucken möchtest. Alternativ kannst Du den Druckbereich festlegen, um sicherzustellen, dass alles auf einer Seite gedruckt wird.
Problem: Der Druck funktioniert nicht wie gewünscht.
- Lösung: Stelle sicher, dass die letzte Zeile korrekt ermittelt wird und dass die angegebenen Spalten existieren.

Alternative Methoden

Eine alternative Methode, um nur bestimmte Spalten zu drucken, besteht darin, die Benutzerdefinierten Ansichten in Excel zu verwenden. Damit kannst Du den gewünschten Bereich festlegen und speichern, ohne ein Makro zu nutzen.

Markiere die Zellen, die Du drucken möchtest.
Gehe zu Ansicht > Benutzerdefinierte Ansicht.
Klicke auf Hinzufügen, gib der Ansicht einen Namen und speichere sie.
Wenn Du drucken möchtest, wähle diese Ansicht aus und drucke den Bereich.

Praktische Beispiele

Angenommen, Du möchtest die Spalten G, I, L und R drucken. Der angepasste Code könnte so aussehen:

Sub drucken1()
    Dim letzteZeile As Long
    letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    Range("G2:G" & letzteZeile & ",I2:I" & letzteZeile & ",L2:L" & letzteZeile & ",R2:R" & letzteZeile).PrintOut Copies:=1, Collate:=True
End Sub

Mit diesem Code druckst Du nur die ausgewählten Spalten in einem Durchgang.

Tipps für Profis

Verwende PrintPreview: Bevor Du druckst, kannst Du die Druckvorschau verwenden, um sicherzustellen, dass alles korrekt aussieht. Das kannst Du im Makro mit ActiveWindow.SelectedSheets.PrintPreview hinzufügen.
Drucke nur bestimmte Zeilen: Wenn Du nur bestimmte Zeilen drucken möchtest, kannst Du den Bereich entsprechend anpassen, z.B. Range("G2:G10").
Schnelle Anpassungen: Nutze den Makrorecorder, um dir häufige Druckeinstellungen zu speichern und schnell zu reproduzieren.

FAQ: Häufige Fragen

1. Wie drucke ich nur bestimmte Zellen in Excel?
Du kannst den Bereich in Deinem Makro spezifisch angeben, z.B. Range("A1:C3").PrintOut.

2. Funktioniert das in allen Excel-Versionen?
Ja, die oben genannten Methoden sind in den meisten Excel-Versionen verfügbar, insbesondere in Excel 2007 und neuer.

Beliebteste Forumthreads (12 Monate)