Zeilen beim Druck ausblenden
17.08.2006 14:13:58
Gesa
Sub Drucken()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 11).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 11)) Or Cells(iRow, 11).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub
Dieses funktioniert allerdings nur wenn die Bedingung in der Spalte K erfüllt ist. Was muß ich beim Makro ändern, wenn ich die Bedingung in der Spalte S oder W einsetzen möchte?(ich habe selber schon versucht, die Bedingung zu ändern, indem ich die 11 im Makro auf 19 (ich dachte Spalte K = 11 dann muß S ja 19 sein) geändert habe - leider erfolglos.
Für eure Hilfe wäre ich dankbar.
:-) Gesa S.
Anzeige