Zeilen ausblenden, wenn Zellen =1
Andreas
Mit dem folgenden Makro lege ich auf den Blättern 1 bis 20 den Druckbereich fest, lege als Blattformat "Hochformat" fest und blende im Bereich 11 bis 46 alle Zeilen aus, bei denen in der Zelle 26 ("Z") nicht der Wert "1" steht.
Jetzt möchte diesen Code soweit ergänzen, dass nur die Zeilen ausgeblendet werden, bei denen in der Zelle 26 und / oder 27 nicht der Wert "1" steht.
Also: Zelle 26=1, nicht ausblenden ; Zelle 26 & 27=1, nicht ausblenden ; Zelle 27=1, nicht ausblenden.
Habe leider keine Ahnung von VBA. Kann mir bitte Jemand helfen!
Sub festlegenDruckbereich_fürGravur()
' ändern des Druckbereiches auf den Bereich "A1:I48!
' ausblenden der Zeilen ohne Gravur
For z = 1 To 20
With Worksheets(z)
.PageSetup.PrintArea = "$A$1:$i$48"
.PageSetup.Orientation = xlPortrait
.Unprotect
For i = 11 To 46
If Not .Cells(i, 26) = 1 Then
.Rows(i).Hidden = True
End If
Next i
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next z
End Sub
Danke für die Hilfe!
mfg, Andreas
Anzeige