Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein Problem beim Definieren des Druckbereiches für ein Tabellenblatt! Meine Tabelle besteht aus den Spalten A, B, C und D. Davon möchte ich aber nur die Spalten A und D nebeneinander auf einer Seite gedruckt haben. Über "Datei" , "Druckbereich" , "Druckbereich festlegen" kann ich die beiden Spalten auswählen. Sie werden auch gedruckt, allerdings auf getrennten Seiten. Wie kann ich erreichen, dass beiden Spalten nebeneinander auf einer Seite gedruckt werden. Vielen Dank für Eure Hilfe. Gruss hanswerner

Hallo Hanswerner,
markiere die Spalten, die nicht gedruckt werden sollen. Dann Format / Spalten / Ausblenden. Sie verschwinden nicht nur vom Monitor, sondern auch beim Druck. Rückgäng machen kannst du das auf dem gleichen Weg, wenn du den Cursor auf die sichtbare schwarze Linie setzt, die an Stelle der Spalten auf dem Bildschirm angezeigt wird.
Gruß
Pasusenfüller

Hallo Pasusenfüller,
danke für die Lösung.
Das Problem ist nun, dass ich die Tabelle Anwendern zur Verfügung stellen will, die mit EXCEL nicht so vertraut sind. Deshalb möchte ich die Druckfunktion an eine Befehlsschaltfläche knüpfen um den Ausdruck automatisiert ablaufen zu lassen.
Wie kann man das realisieren?

Gruss
hanswerner

Ich vergaß zu erwähnen, dass die Zellen der auszublendenden Spalten durch Blattschutz mit Kennworteingabe gesichert sind, da deren Inhalte durch SVERWEIS ermittelt werden. Ich müßte also dem Anwender ermöglichen, den Blattschutz aufzuheben um die Spalten auszublenden und das ist nicht gewollt!

hanswerner

Hallo Hanswerner,
das ist bestimmt über Script realisierbar, aber damit kenne ich mich nicht aus. Ich würde mir in einem vergleichbaren Fall vermutlich eine zweite schreibgeschütze Tabelle ´Druckversion´ erstellen, die nur die Daten aus der ersten übernimmt, die gedruckt werden sollen. Das ist zwar nicht so richtig professionell, dürfte aber problemlos funktionieren.
Gruß
Pausenfüller

Hallo Hanswerner,

probier mal den folgenden Code aus:

Sub Drucken()

´
´Bildschirmaktualisierung ausschalten
   Application.ScreenUpdating = False
    
´Blattschutz aufheben
    ActiveSheet.Unprotect
´Spalten B und C ausblenden
    Columns("B:C").Select
    Selection.EntireColumn.Hidden = True
´Blatt drucken
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
´Spalten B und C wieder einblenden
   Columns("A:D").Select
   Selection.EntireColumn.Hidden = False
 ´Blatt schützen
    ActiveSheet.Protect
 ´Bildschirmaktualisierung einschalten
   Application.ScreenUpdating = True
    
 Range("A2").Select
    
End Sub

Gruß

M.O.

Hallo M.O.,
Dein Lösungsversuch sieht nach VBA-Programmierung aus, richtig? Damit habe ich noch keinerlei Erfahrung! Kannst Du mir ein paar Stichpunkte geben, wie ich den Code bzgl. meines Druckproblems verwenden muß?

Danke im voraus
hanswerner

Hallo Hanswerner,

sieh Dir unter http://www.excelbeispiele.de -- |Anleitungen| am besten die
Anleitung zum VBA Projekt “Diese Arbeitsmappe" an. Du musst also den VBA-Code von oben vollständig von

 Sub Drucken() 

bis

 End Sub 

in die Zwischenablage kopieren und im VBA-Editor nach Auswahl (links) von Arbeitsmappe (oder Modul) in den leeren Bereich (rechts) kopieren.
In eine Tabelle würde man immer dann einfügen, wenn man einen Code hat, der sich spezielle auf eine Tabelle bezieht, aber in diesem Fall spielt es eigentlich keine Rolle.

Das Makro Drucken lässt sich nun - zum Teil sofort - auf 4 Arten starten:
(1 - sofort möglich) über Extras -- Makro -- Makros... -- Drucken markieren -- Ausführen,
(2) nach Hinzufügen einer Tastenkombination (über Extras -- Makro -- Makros... -- Drucken markieren -- Optionen...) durch Drücken dieser Tastenkombination,
(3) nach Anlegen einer Schaltfläche oder eines ähnlichen Steuerelements und Zuweisen des Makros Drucken durch Klicken auf dieses Element,
(4) durch einen Aufruf

 Call Drucken 

aus einem anderen Makro heraus.

Das Anlegen einer (Formular-)Schaltfläche ist in http://home.arcor.de/excelseite/UserForms/indforms.html unter Formular öffnen erklärt. Das funktioniert für jedes Makro, nicht nur um ein Formular aus einer Tabelle zu öffnen. Du musst statt UserForm_oeffnen nur Dein Makro Drucken zuweisen.

Gruß,
CaroS

Hallo CaroS,
Danke für Deine ausführlichen Erläuterungen. Das Drucken klappt. 1 Problem habe ich noch; die zu druckenden Spalten sind farbig unterlegt! Wie erreiche ich, dass bei einem schwarz/weiß Ausdruck die Spalten nicht grau sondern weiß gedruckt werden?

Gruss
hanswerner

Hallo Hanswerner,

wenn Du in Excel (!) (nicht in den Druckereigenschaften) Schwarzweißdruck einstellst, werden alle Werte in den Zellen und Rahmen um die Zellen schwarz und alle Zell-Hintegründe farblos gedruckt.

Einstellbar über Menü Datei -- Seite einrichten... -- Register Tabelle -- Abschnitt Drucken -- Häkchen bei Schwarzweißdruck -- OK.


Gruß,
CaroS

Hallo CaroS,
das ist mir bekannt! Ich möchte den schwarz/weiß Druck aber nur dann haben, wenn das Macro "Drucken" aufgerufen wird! Der Anwender soll nicht irgendwelche Einstellungen von Hand vornehmen müssen.
Gibt es eine Möglichkeit , das Macro dahingehend zu erweitern?

Gruss
hanswerner

• Kein Zugriff auf Verzeichnisse
• SummeWenn Kriteriumsbereiche definieren
• Excel Bereiche Definieren für Export nach Outlook