Versteckte Zeilen mit berücksichtigen
07.09.2018 09:16:59
Marco
google zu Fragen wie ausgeblendete Zeilen doch berücksichtigt werden können ist ziemlich sinnlos, da google das schöne Wort nicht in den Ergebnissen ergänzt. Daher meine Frage und Bitte an Euch.
Ich habe ein Makro, dass immer beim finden eines Suchwortes (Hier) einen Seitenumbruch setzt. Jetzt ist ein "Hier" aber in einer Versteckten Zeile. Wie kann auch die Versteckte Zeile berücksichtigt werden?
Vielen Dank im Vorraus,
Marco
Sub Seitunbrüche_setzen_MO_25_04()
Dim Rng As Range
Dim ZeileAlt As Long
Dim zeLLe As Range
Dim wks_Bereiche As Worksheet
Sheets("bereiche").Select
Set wks_Bereiche = ThisWorkbook.Sheets("bereiche")
LastRow = wks_Bereiche.Columns(1).Find(what:="*", after:=Cells(Rows.Count, "a"), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchDirection:=xlPrevious).Row
With wks_Bereiche.Columns(1)
.Parent.ResetAllPageBreaks
For iSchleife = 1 To LastRow
If .Range("gn" & iSchleife) = "Hier" Then
Set zeLLe = Rows(iSchleife)
Debug.Print iSchleife
zeLLe.Parent.HPageBreaks.Add before:=zeLLe.Offset(1, 0)
End If
Next iSchleife
End With
Sheets("bereiche").PageSetup.PrintArea = "$A$1:$o$439"
End Sub