Zellen sind nicht leer da eine Formel darin steh!
08.12.2003 14:46:49
Newbe
Sub druckena()
Dim Ws As Worksheet, Lz As Long
Set Ws = Worksheets("Auswertung")
Lz = Ws.Range("A65536").End(xlUp).Row
With Ws
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
.PageSetup.PrintArea = "A4:G" & Lz + 2
.PrintOut
.PageSetup.PrintArea = ""
End With
End Sub
Dieser liest mir aus wann die letzte beschrieben Zeile eintrifft und druckt das file dann nur bis zur letzten Zeile - Dies funktioniert allerdings nicht wenn Formeln in den Zellen steht, da er nicht erkennt das die Zelle leer ist auch wenn die Funktion schreibt das sie leer ist - Kann mir jemand weiter helfen??
In so einer zelle steht dann z.B. =wenn(b5=6;"";Sechs) (Nur ein Beispiel)
Und der oben genannte Code denkt dann die Zeile ist beschrieben und druckt sie leer aus!!!
Anzeige