Office: Lere Zeilen ausblenden beim drucken

Hallo,
ich benötige wiedermal euere Hilfe, da ich kein VBA-Profi bin.

Mit folgendem Makro drucke ich ein Sheet aus in dem manche Zeilen in Spalte B leer sind.
Nun möchte ich das Makro so abändern, daß es die leeren Zeilen von Spalte D ausblendet.
Leider stehen aber in der Spalte D immer Werte drin z.B. 0 und größer, da es eine Summenspalte für Spalte E, F und G ist.
Es sollte die Zeile ausblenden wenn eine Null drin steht oder anderst formuliert wenn der Wert größer als 0,1 ist soll die Zeile gedruckt werden.
Ich hab aber das Problem, daß ich es nicht so recht auf die Reihe brachte.
Meine Bitte an euch, könntet ihr mir dabei helfen, es ist sicher für einen Profi nur eine Kleinigkeit für mich aber ein riesiges Problem.

Private Sub CommandButton1_Click()
Dim s%, e!, z!
ThisWorkbook.Worksheets("P+G Schicht 1").Unprotect "FCHC"
'Spalte B:
s = 2
'Letzte Zeile mit Eintrag suchen:
e = Cells(Rows.Count, s).End(xlUp).Row
'Zeilen ausblenden:
For z = 10 To 64
If Trim$(Cells(z, 2).Value) = "" Then Rows(z).RowHeight = 0
Next
'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$61"
'Drucken:
ActiveSheet.PrintOut
'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""
'Zeilen einblenden:
Rows.Hidden = False
ThisWorkbook.Worksheets("P+G Schicht 1").Protect "FCHC"
End Sub


Danke für euere Hilfe.

 

VBA: Zeilen ausblenden

Hallo,

wie wäre es damit?

Private Sub CommandButton1_Click()
Dim s%, e!, z!
ThisWorkbook.Worksheets("P+G Schicht 1").Unprotect "FCHC"
'Spalte B:
s = 2
'Letzte Zeile mit Eintrag suchen:
e = Cells(Rows.Count, s).End(xlUp).Row
'Zeilen ausblenden:
For z = 10 To 64
If Cells(z, 4).Value = 0 Then Rows(z).Hidden = True
Next
'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$61"
'Drucken:
ActiveSheet.PrintOut
'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""
'Zeilen einblenden:
Rows.Hidden = False
ThisWorkbook.Worksheets("P+G Schicht 1").Protect "FCHC"
End Sub

Grüße
M.A.

 

leere Zeilen ausblenden beim drucken

Hallo Marc Aurel,

suuuuuper, ihr seid die BESTEN.

Danke für die superschnelle Hilfe, es klapp.

Einfach toll solche Helfer zu haben

Ich kann einfach nur Danke sagen und mich vor euch verbeugen.