For Each Probleme und Seitenumbrüche
13.02.2019 14:00:17
Tina
ich suche nach einer Möglichkeit nach dem Buchstaben "N" in Spalte B zu suchen. Wenn "N" gefunden wird, soll der Bereich (Zeile 1 - 20) Fett gemacht werden.
Bisher habe ich mit Testsheets erfolgreich diesen Makroschnipsel verwendet:
Dim z As Object, Rng As Range
Set Rng = Range("B1:B50")
For Each z In Rng.SpecialCells(xlCellTypeConstants, 2)
If z.Value = "N" Then
Range(Cells(z.Row, 1), Cells(z.Row, 20)).Font.Bold = True
End If
Next
Leider funktioniert das nur wenn auch ein "N" da ist. Wenn nicht, gibt es logischerweise einen Fehler. Wie muss ich es formulieren damit mir kein Fehler ausgegeben wird wenn das "N" fehlt?
Seitenumbruch:
An einer anderen Stelle in dem Makro löse ich alle Seitenumbrüche auf:
Application.ScreenUpdating = False
Application.PrintCommunication = False
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.ResetAllPageBreaks
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(1, h), Cells(letztezeile, t)).Address
.Order = xlDownThenOver
.FirstPageNumber = xlAutomatic
.Draft = False
End With
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Die letzte Zeile stammt aus dem Makrorecorder...
Das Problem daran ist dass das Makro regelmässig an dieser Stelle (letzte Zeile) einen Fehler auswirft, oder den Seitenumbruch nicht verschiebt.
Welche Alternativen habe ich um die Seitenumbrüche zu setzen?
Danke und Gruss
Tina