Zeilen ausblenden / Druck unterbinden
Dieter
ich hoffe Ihr könnt mir weiterhelfen. Ich habe Probleme mit einem bestimmten Makro, welches den Ausdruck von Leerzeilen unterbinden soll.
Hier zunächst einige Angaben über mein zu druckendes Tabellenblatt:
Druckbreich definiert: B2:J168
Wiederholungszeilen: 2:13
Seite-1: von Zeile 1: 67
Seite-2: von Zeile 68:119
Seite-3: von Zeile 120:168
Ich möchte nun erreichen, daß bei Leeren Zeilen ab Zeile 120, die Seite 3 nicht gedruckt wird. Hierzu wird zunächst in Spalte A der jeweiligen Zelle ermittelt ob in Spalte B-J der jeweiligen Zeile ein Wert steht (=WENN(E120>0;1;"").
Wenn "E120" = 0 ist, wird mir in A120 "" ausgegeben. Ich benutze zum Zeilenausblenden folgendes Makro (funktioniert auch einwandfrei!):
Public
Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
For i = 119 To 168
If Cells(i, 119).Value = "" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("AA1").Select
End Sub
Wie gesagt, das Makro funkioniert, nur beim Ausdruck erhalte ich trotzdem immer 3 Seiten (in der Seitenumbruchvorschau werden nach dem ausblenden jedoch nur 2 angezeigt).
Könnt Ihr mir sagen welchen Fehler ich mache?
Danke für Eure Hilfe!
Dieter
Anzeige