"Wert" aus ausgeblendeter Zelle berücksichtigen
26.06.2018 19:14:07
Marco
ich muss Euch um Hilfe bitten, ich bekomme keine Lösung hin:
Das unten stehende Makro setzt an der Stelle wo das Wort "HIER" steht einen Seitenumbruch im Druck. Das funktioniert aber nicht, wenn die Zeile ausgeblendet ist (was offensichtlich vorkommt :-)).
Hat bitte jemand eine Idee für eine Lösung. Zeile einblenden und wieder ausblenden schließe ich eigentlich aus, da die Anzahl zu groß und damit Zeitraubend ist.
Vielen Dank im Voraus,
Marco
Sub Seitunbrüche_setzen_MO_25_04()
'http://www.office-loesung.de/ftopic600701_0_0_asc.php oben
Dim zeLLe As Range
Dim ZeileAlt As Long
Sheets("bereiche").Select
With Columns(196)
.Parent.ResetAllPageBreaks
Set zeLLe = .Cells(1, 1)
Do
Set zeLLe = .Find(what:="hier", after:=zeLLe, lookat:=xlWhole, LookIn:=xlValues)
If zeLLe Is Nothing Then Exit Do
If zeLLe.Row