Office: Tabelle drucken mit bedingter Formatierung

Wer kann mir helfen?

Ich habe eine verknüpfte Tabelle, die ich ausdrucken möchte, aber:

Die Tabelle bezieht die Daten aus einer anderen Tabelle. In der zu druckenden Tabelle sind Formeln mit bedingter Formatierung (wenn Nullwerte vorhanden, dann Schriftfarbe weiß). Wenn nun keine errechneten Daten vorhanden sind, soll Excel diese Zeilen nicht ausdrucken aber auch keine Leerzeile in der Liste lassen.

Kann Excel sowas?

Danke im voraus!
:roll:

 

Hallo,

beschreibe mal den Tabellenaufbau etwas deutlicher.

Was heißt genau

?

Ich verstehe das so, dass Zeilen mit Nullwerten nicht gedruckt werden sollen. Wo befinden sich diese Nullerwerte? Alle in einer Spalte oder können die auch in verschiedenen Spalten auftreten?

 

Hallo Peter,

zuerst einmal DANKE für Deine schnelle Reaktion!!
der Aufbau dieser Tabelle ist eigentlich sehr einfach, und zwar:

Es werden nur Daten aus der verknüpften Tabelle automatisch eingefügt, die ich für diese Liste brauche d.h. es ist eine Zusammenfassung aus einer komplexen Liste.

Es gibt 4 Spalten, die mit folgenden Formeln versehen sind:

='C:\Dokumente und Einstellungen\Bär\Desktop\Excel-Test\[MA- Reinigung.xls]Jan'!$A$8

nächste Spalte gleiche Formel, jedoch z.B. Jan A 9 usw.

Daß mit den Null-Werten hast Du richtig verstanden, die können in verschiedenen Spalten auftreten.

Vielleicht kann man ja noch eine Spalte hinzufügen, die, wenn ein Austrittsdatum drin steht, eben dann nicht mehr gedruckt wird?? auch das wäre, wenn möglich, für mich eine Lösung. Aber keine Ahnung wie ich das mit dem Drucken dann anstellen soll *grins*

Liebe Grüße Moehrchen61

 

Hallo,

wenn das mit einer zusätzlichen Spalte machbar ist, dann müsste es doch möglich sein auf diese Spalte einen Autofilter zu legen und die 'Nichtleeren' Zeilen auszublenden und dann zu drucken.

Möglicherweise wäre dann vielleicht auch dieser Code ein Ansatz wobei ich die Lösung mit dem Autofilter bevorzugen würde:

Sub Druck_x_Zeilen()
'Quelle: Herber
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row '1
For iRow = 1 To iRowL
If Cells(iRow, 1).Value = "x" Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub

Der Code muss in ein allgemeines Modul der Datei und prüft die Spalte A. Wenn in der Spalte A ein 'x' vorhanden ist dann wird die entsprechende Zeile ausgeblendet.

Den Ausdruck startest du über das Makro. Durch diese Zeile

ActiveSheet.PrintPreview

wird zunächst die Vorschau aufgerufen. Wenn du direkt drucken willst dann ersetze den Ausdruck durch

ActiveSheet.PrintOut


- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden
- im Projektexplorer wird das Modul unter der Datei angezeigt
- speichen und den VBA-Editor mit Alt+F4 schliessen
- das Makro bzw. die Funktion steht dir jetzt in dieser Datei zur Verfügung

 

Hallo Peter,

das ging ja superschnell.... :-D DANKE

Aber: Das mit dem Autofilter, ausblenden und drucken, das verstehe ich nicht, da habe ich leider überhaupt keine Ahnung, wie das gehen soll :cry:

Obwohl mir das sympatisch erscheint.

Könntest Du mir das mal eben erklären :?: :lol:

LG

 

Hallo,

ich habe dir mal eine Beispielstabelle angehängt.

Grundüberlegung war diese Aussage von dir:

In der Datei steht der gepostete Code als VBA-Code, d.h. je nach Sicherheitseinstellung wird beim Öffnen der Datei ein Hinweis auf vorhandenen VBA-Code kommen.

In der ersten Zeile der Tabelle1 habe ich einen Autofilter eingerichtet über Menü Daten - Filter - Autofilter.

Wenn du jetzt auf den Dropdown-Pfeil in A1 klickst und dann bei der Auswahl auf 'Leere' gehst werden unterhalb von A1 alle Zeilen ausgeblendet in denen etwas steht.

Jetzt klarer?