Einzelne Zellen NICHT ausdrucken

Forumthread: Einzelne Zellen NICHT ausdrucken

Heinrichs

Hallo zusammen,
ich weiß, dass mein Problem eine ziemliche Zweckentfremdung von EXCEL darstellt und ich vermutlich an andere Programme verwiesen werde - vielleicht kann mir trotzdem jemand helfen, da ich von den Vorteilen von EXCEL unbedingt profitieren möchte.
Ich möchte über EXCEL Etiketten beschriften. Es handelt sich jeweils um 21 Klebe-Etiketten auf einem DIN-A4 - Bogen.
Ich habe nun zwei Tabellenblätter eröffnet. Auf dem ersten können die Daten eingegeben werden; das zweite Tabellenblatt stellt den fertigen Ausdruck dar (ansonsten findet hier keinerlei Bearbeitung statt).
Problem ist nun folgendes:
Es werden nicht immer alle 21 Etiketten zum Ausdruck benötigt. Es kann z. B. sein, dass an einem Tag nur fünf Etiketten gedruckt werden müssen. Beim nächsten Zugriff erfolgt dann ein weiterer Ausdruck, wobei die ersten fünf (fehlenden) Etiketten natürlich nicht mehr ausgedruckt werden sollen.
Ich habe dazu überlegt, für jedes Etikett zwei Makros aufzuzeichnen - Makro 1 setzt die Schriftfarbe auf weiß, entfernt Rahmenlinien und blendet die Grafik beim Drucken aus (dadurch "fehlt" dieses Etikett beim Ausdruck); Makro 2 setzt die Schriftfarbe wieder auf schwarz, fügt die bestimmten Rahmenlinien wieder ein und blendet die Grafik beim Drucken wieder ein (dadurch erscheint das Etikett beim Ausdruck).
Um die Makros auszuführen, habe ich auf dem Eingabe-Tabellenblatt für jedes Etikett zwei Optionsfelder eingerichtet, die dann mit den beiden Makros verknüpft werden sollen. Hier kann ich also einzeln für jedes Etikett bestimmen, ob es gedruckt werden soll oder nicht.
Ich hatte bereits testweise einige Makros aufgenommen und musste dann leider feststellen, dass ich die Makros, welche im zweiten Tabellenblatt (Ausdruck) zum Einsatz kommen sollen, nicht vom ersten Tabellenblatt (Eingabe) aus gestartet werden können.
Wie kann ich die Makros aufzeichnen, dass dies möglich ist?
Ist meine Vorgehensweise (abgesehen davon, dass EXCEL kein Etiketten-Druck-Programm ist) viel zu kompliziert?
HIER DIE DATEI: https://www.herber.de/bbs/user/81017.xls
Ich würde mich auf eine Antwort sehr freuen!
Nette Grüße, Simon
PS: Ich hatte bereits einen ähnlichen Thread eröffnet, bin aber nicht wirklich voran gekommen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Einzelne Zellen NICHT ausdrucken

16.07.2012 16:06:28

UweD

Hallo
ich habe mal folgendes gemacht:
Ein Rechteck über die Position des Aufklebers
- Ohne Randfarbe
- Füllfarbe weiß
- Das rechteck entsprechend benennen (auswählen und dann in der Bearbeitungsleiste vorne abändern)
Userbild

- Auf die entsprechenden Knöpfe rechtsclick, Makro zuweisen...
- per makro wird das Rechteck jetzt sichtbar >> also weiß >> Etikett bleibt weiss
- oder unsichtbar >> dadurch wird der Hintergrund sichtbar
ich hab das mal für die ersten 3 Felder so gemacht..
Makros wie folgt:


Sub Etikett01_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = True
End Sub
Sub Etikett01_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = False
End Sub
Sub Etikett02_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 02").Visible = True
End Sub
Sub Etikett02_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 02").Visible = False
End Sub
Sub Etikett03_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 03").Visible = True
End Sub
Sub Etikett03_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 03").Visible = False
End Sub

Gruß UweD
https://www.herber.de/bbs/user/81021.xlsm

AW: Einzelne Zellen NICHT ausdrucken

16.07.2012 16:16:16

Dieter(Drummer)

Hi Simon,,
habe in deiner Mappe, Tabelle "Ausdruck"mal jedes Etikett mit einem Namen definiert, z.B. Etikett 1 mit dem Namen "Etik1" usw. bis "Etik21".
Jetzt brauchst du nur noch ein VBA Makro, dass in Tabelle "Eingabe", bei Aktivierung des Optionsfeldes "Drucken", das Etikett mit dem Namen "Etik1" gedruckt wird. So müsste im Makro ein Prüfung aller Optionsfelder erfolgen, ob ein Etikett gedruckt oder nicht gedruckt werden soll. Ich würde KEINE Etiketten löschen und dann wieder herstellen, zumal bei z.B. löschen von Etikett 1 die anderen keine Textinhalte mehr haben.
Bei der Makroerstellung kann ich nicht helfen, da hier mein VBA Wissen ungenügend ist. Hier gibt es evtl. im Forum hilfe.
Hier deine überarbeitete Version: https://www.herber.de/bbs/user/81023.xls
Mit Gruß, Dieter(Drummer)

AW: Mit drucken ...

16.07.2012 17:25:23

Dieter(Drummer)

Hi Simon,
habe mal probiert! Nun kannst du im Modul sehen, was ich in einer etwas diletanischen Weise angelegt habe.
Bei Klick auf Etikett 1 "Drucken", wird das "Etik1" gedruckt. Dies nur mal zur Funktionsmöglichkeit. Nun müsste sich einer der Forumspezialisten dies vereinfachen/erweitern. Ich kann mit vorstellen, dass über eine Schleife abgefragt wird, welches "Etik1" bis "Etik21" - je nach Aktivierung des Optionsfeldes in Tab "Eingabe". aktivert ist So kann das jeweilige Etikett gedruckt werden.
Mehr kann ich nicht helfen. Du kannst natürlich jede Optionsfeld Einstellung einzeln abfragen, statt einer Schleife.
Gruß, Dieter(Drummer)
Hier die neue Version: https://www.herber.de/bbs/user/81025.xls
Im Modul ist:

Option Explicit
Sub Optionsfeld13_BeiKlick()
Application.ScreenUpdating = False
Worksheets("Eingabe").Shapes("Optionsfeld 13").OLEFormat.Object.Value = True
Sheets("AUSDRUCK").Application.Goto Reference:="Etik1"
Selection.PrintOut Copies:=1
Range("C13").Select
Sheets("EINGABE").Select
Range("D2").Select
Application.ScreenUpdating = True
End Sub

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Vorbereitung: Erstelle zwei Tabellenblätter in Deiner Excel-Datei – eines für die Eingaben und eines für den Ausdruck.
Makros aufzeichnen: Du kannst Makros verwenden, um das Drucken von bestimmten Zellen zu steuern. Zum Beispiel kannst Du zwei Makros für jedes Etikett erstellen:
- Makro für das Ausblenden der Zelle:
```
Sub Etikett01_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = True
End Sub
```
- Makro für das Drucken der Zelle:
```
Sub Etikett01_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = False
End Sub
```
Optionsfelder erstellen: Füge Optionsfelder auf dem Eingabe-Tabellenblatt hinzu, um festzulegen, welche Etiketten gedruckt werden sollen.
Verknüpfen: Weise die Makros den jeweiligen Optionsfeldern zu, sodass beim Aktivieren des Optionsfeldes das passende Makro ausgeführt wird.

Häufige Fehler und Lösungen

Makros starten nicht: Stelle sicher, dass die Makros im richtigen Tabellenblatt zugewiesen sind. Wenn Du das Makro von einem anderen Blatt aus aufrufst, kann es zu Problemen kommen.
Zellen werden nicht verborgen: Überprüfe die Sichtbarkeit der Formen. Manchmal kann es vorkommen, dass die Sichtbarkeit nicht korrekt gesetzt ist. Teste die Makros einzeln.
Fehler bei der Druckvorschau: Wenn in der Druckvorschau die Zellen sichtbar sind, obwohl sie nicht gedruckt werden sollen, überprüfe die Makrozuweisungen und die Sichtbarkeit der Formen.

Alternative Methoden

Eine andere Möglichkeit, um bestimmte Zellen nicht zu drucken, besteht darin, die Zelleninhalte über bedingte Formatierungen auszublenden. Setze die Schriftfarbe auf Weiß, um den Text "unsichtbar" zu machen:

Markiere die Zellen, die Du nicht drucken möchtest.
Gehe zu Start > Bedingte Formatierung > Neue Regel.
Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib eine passende Formel ein, um die Zellen zu identifizieren.
Setze die Schriftfarbe auf Weiß.

Praktische Beispiele

Ein Beispiel für das Ausblenden einer Zelle beim Drucken könnte so aussehen:

Zelle A1 soll nicht gedruckt werden:

Sub ZelleNichtDrucken()
    Worksheets("AUSDRUCK").Range("A1").Font.Color = RGB(255, 255, 255) ' Schriftfarbe auf Weiß setzen
End Sub

Zelle wieder sichtbar machen:

Sub ZelleDrucken()
    Worksheets("AUSDRUCK").Range("A1").Font.Color = RGB(0, 0, 0) ' Schriftfarbe auf Schwarz setzen
End Sub

Tipps für Profis

Nutze Formeln zur Datenüberprüfung, um sicherzustellen, dass nur die gewünschten Zellen gedruckt werden.
Experimentiere mit VBA-Schleifen, um den Druck von mehreren Zellen gleichzeitig zu steuern, wenn Du viele Etiketten hast.
Halte Deine Makros gut dokumentiert, um zukünftige Anpassungen zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich Excel so einstellen, dass bestimmte Zellen nicht gedruckt werden?
Du kannst dies erreichen, indem Du die Schriftfarbe auf Weiß änderst oder Makros verwendest, um die Sichtbarkeit der Zellen zu steuern.

2. Was ist der beste Weg, um nur bestimmte Zellen zu drucken?
Verwende Makros oder bedingte Formatierungen, um die Zellen, die Du nicht drucken möchtest, auszublenden oder deren Inhalte zu verbergen.

3. Kann ich auch Kommentare mit ausdrucken?
Ja, Du kannst Kommentare in Excel so einstellen, dass sie beim Drucken angezeigt oder ausgeblendet werden. Stelle sicher, dass die Druckoptionen entsprechend konfiguriert sind.

Beliebteste Forumthreads (12 Monate)

Forumthread: Einzelne Zellen NICHT ausdrucken

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Einzelne Zellen in Excel nicht drucken

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Einzelne Zellen NICHT ausdrucken

Forumthread: Einzelne Zellen NICHT ausdrucken

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Einzelne Zellen in Excel nicht drucken

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread