Ich habe in meiner Tabelle in Spalte B Namen.
Nun möchte ich ein Makro ablaufen lassen das mir vor der Zeile mit einem Namen der mit "W" anfängt einen Seitenumbruch erzwingt!
Wer kann mir da helfen?
Danke im Voraus
Gruss Setge
Sub test()
Dim rSuche As Range, rFinde As Range
Set rFinde = ActiveSheet.Range("B:B")
Set rSuche = rFinde.Find(what:="W" & "*", LookAt:=xlPart, LookIn:=xlValues)
rSuche.EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub
Gruß
Chris
Sub Makro4()
Dim Zelle As Range
With Range("A1").CurrentRegion
ActiveSheet.ResetAllPageBreaks
.AutoFilter Field:=2, Criteria1:="=W*"
For Each Zelle In .Columns(2).SpecialCells(xlCellTypeVisible)
If Zelle.Row > 3 Then ActiveSheet.HPageBreaks.Add Before:=Zelle
Next
.AutoFilter
End With
End Sub
zu beachten ist allerding, daß wenn man von Hand eingefügte Seitenumbrüche verwenden will, man dann bei SEITE EINRICHTEN nicht "Anpassen x Seiten hoch y Seiten breit" wählen darf sonden unter "Vergrösseren/Verkleinern" eine feste Zoomstufe einstellen muss.
Gruß, Daniel