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