Seitenumbruch
02.10.2005 21:46:26
Michael
ich habe folgendes Problem. nach dem ich meine Druckansicht erstellt habe mit dem unten angebenen Makro (hab ich hier aus dem Forum bekommen habe) möchte ich einen variabelen Seitenumbruch einbauen. Der Seitenumbruch soll jedesmal neu berechnet werden und max 42 Zeilen pro Seite zulassen.
ich hoffe es kann jemand das Makro erweitern.
Gruß
Michael
Sub Ausblenden()
Dim i&, z&
For i = 1 To 26
z = 4 + (i - 1) * 6
Debug.Print Cells(z, 1) = ""
Range(Cells(z, 1), Cells(z + 5, 1)).EntireRow.Hidden = (Cells(z, 1) = "")
Next i
End Sub