Seitenumbruch per Makro funktioniert leider nicht
23.08.2013 15:44:08
claus
Ich habe versucht diesen Makro zu erstellen. Habe es aber leider nicht hinbekommen.
Bitte beachte, dass es sich hier um Vertikale Seitenumbrüche handelt.
Danke!
Sub Test5_Seitenumbruch_einfuegen()
Dim lngColumn As Long
For lngColumn = 1 To ActiveSheet.Cells(1, .Columns.Count).End(xlToLeft).Column
If Cells(1, .Columns.Count) = "Hier" Then _
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, lngColumn + 1)
Next
End Sub
Anzeige