Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucken

Forumthread: Drucken

Drucken
09.10.2002 09:21:35
Nadine
Hallo,

folgendes Problem:
ich möchte nur die Zellen ausdrucken, deren Werte grösser als null sind, bzw. die
nicht leer sind. Die zu überprüfenden Zellen erstrecken sich von F11:F170.

für Hilfe wäre ich sehr dankbar.
viele Grüsse

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Drucken
09.10.2002 10:06:40
Wolfgang
Es gibt sicher noch elegantere Lösungen aber dies Funktioniert auch.

Sub ausdrucken()
Dim Zelle

For Each Zelle In Worksheets("Tabelle1").Range("f11:F170")
If Zelle.Value = 0 Or Zelle.Value = "" Then
Worksheets("Tabelle1").Rows(Zelle.Row).EntireRow.Hidden = True
End If
Next Zelle

Tabelle1.PrintOut
Worksheets("Tabelle1").Range("f11:F170").EntireRow.Hidden = False
End Sub

mfG Wolfgang

Anzeige
Re: Drucken
09.10.2002 10:11:24
BCM
Hi Nadine,
ich nehme an, die Zellen ergeben keinen geschlossenen Bereich, also wird Dir auch der Druckbereich nicht helfen.
Ich würde eine Schleife drüberlaufen lassen, die den Druck übernimmt und vorher alle nicht zu druckenden Zellen umformatiert. Schriftfarbe=Hintergrundfarbe. Nach dem Druck wieder retour. Hört sich komplizierter an als es ist.
cu
BCM
Anzeige
Re: Drucken
09.10.2002 11:03:04
Nadine
Zunächst einmal vielen Dank für die Hilfe !
es gibt aber noch ein Problem: Die hidden Eigenschaft für das
Range-Objekt kann nicht festgelegt werden.

Für weitere Hilfe wäre ich sehr dankbar

Nadine

Re: Drucken
09.10.2002 11:44:20
Joachim K
Hallo Nadine ,
ist die Datei oder das Blatt geschützt?
Wenn ja, zuerst Blattschutz aufheben.

Gruß
Joachim

Anzeige
Re: Drucken
09.10.2002 11:44:35
Joachim K
Hallo Nadine ,
ist die Datei oder das Blatt geschützt?
Wenn ja, zuerst Blattschutz aufheben.

Gruß
Joachim

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige