Zeilen mit Wert "0" nicht drucken

[Chris-89]

Hallo Clever-Excel-Forum,

Ich stehe wieder vor einem Problem,
Anbei eine Liste welche regelmäßig mit Daten befüllt wird. In den Zeilen stehen oft sehr viele Informationen, sodass beim Ausdruck (DIN A4 Hochformat) nur 3 Zeilen pro Seite gedruckt werden können.

Ich möchte nun das Zellen welche den Wert 0 haben nicht ausgedruckt werden können. Es geht auch über den Seitenumbruch, aber das muss auch mit einem Makro oder so funktionieren?

Wenn also in der Liste im Anhang in Spalte G eine Zahl steht, dann soll die gesamte Zeile gedruckt werden, wenn in Spalte G jedoch eine 0 steht soll die gesamte Zeile nicht gedruckt werden.

Vielleicht weiß da jemand weiter :)

LG Chris

[schauan]

Hallo Chris,

Du könntest die Daten doch vor dem Ausdruck filtern?

[Chris-89]

Hallo,

Filtern ist schon mal gut, aber da auch andere Leute (welche mit dem Computer und Excel nicht so gut behaftet sind) diese Liste benutzen ist es oft schwer den Leuten das zu erklären.

Gibt es eine Möglichkeit mittels Schaltfläche die Leeren Zeilen herauszufiltern?

LG

[WillWissen]

Hallo Chris,

Filtern ist schon mal gut, aber da auch andere Leute (welche mit dem Computer und Excel nicht so gut behaftet sind) diese Liste benutzen ist es oft schwer den Leuten das zu erklären.

wenn du deine Liste auch wirklich als Liste (mit STRG-T) formatierst, dann ist die Bedienung des Filterelementes doch wirklich nicht schwer - auch mit Mitarbeitern, die gerade keine XL-Experten sind - zu begreifen.

Hier mal ein Foto, wie das aussehen kann:

                                   
(Liste mit STRG-T formatiert)               Null abwählen

Ich glaube, das bekommt selbst der unbedarfteste User hin und der Vorschlag des Filterns von André dürfte mit Abstand der am wenigsten aufwändige sein.

[Chris-89]

Etwas komplexer ist meine Liste schon... aufgrund der Datenmenge aber leider nicht möglich raufzustellen.

Die Liste ist zu komplex für einen Autofilter.
Die zugeordneten Nummern in Spalte G sind in der Liste unsichtbar (diese dürfen von Mitarbeiten nicht eingesehen werden) Demnach mit Autofilter etwas schwierig zu realisieren.

Nun nochmals die Frage wie man das (ob aufwendig oder nicht ist mir gleich) mit einer Schaltfläche realisieren kann.

LG

[Peter]

Hallo,

vielleicht hilft dir diese Seite weiter:

http://www.rondebruin.nl/win/s9/win009.htm

Der erste Code scheint mir eine recht gute Grundlage zu sein.

[Kuwer]

Hallo Chris,

Code:

Sub ZeilenAusblenden()
 Dim rngB As Range, rngZ As Range
 Set rngB = Range(Range("G6"), Cells(Rows.Count, 7).End(xlUp))
 Application.ScreenUpdating = False
 For Each rngZ In rngB
   rngZ.EntireRow.Hidden = rngZ.Value = 0
 Next rngZ
 Application.ScreenUpdating = True
End Sub

Sub AlleZeilenEinblenden()
 Rows.Hidden = False
End Sub

Gruß Uwe

[Rabe]

Hi,

[code]Sub ZeilenAusblenden()
[...]
Sub AlleZeilenEinblenden()

und dann die beiden Makros auf einen Toggle-Button legen, dann werden die Zeilen durch klick auf einen Button ein- oder ausgeblendet.