Umbruchvorschau per VBA
27.05.2019 14:24:20
Georg
im folgenden Code bringe ich die Umbruchvorschau nicht unter.
Wie bekomme ich .view hier hinein. Im aktuellen Code wir nur das aktive Fenster entsprechend aktualisiert, was ja auch eindeutig so drin steht. Wie bekomme ich es für alle Blätter 2-13 rein?, Danke und Gruß
Sub RechenSpaltenAusbl()
Dim i As Integer
Dim j As Integer
Application.Calculation = xlCalculationManual
For i = 2 To 13
With ThisWorkbook.Worksheets(i)
For j = 16 To 30
.Columns(j).Hidden = True
Next j
ActiveWindow.View = xlPageBreakPreview
End With
Next i
Application.Calculation = xlCalculationAutomatic
End Sub