Microsoft Excel

Herbers Excel/VBA-Archiv

Skalierung geht nicht

Betrifft: Skalierung geht nicht von: Jörg
Geschrieben am: 13.11.2012 20:46:51

Hallo,

ich habe Probleme mit der Skalierung. Es sollen die horizontalen Seitenumbrüche gezahlt werden (pbAnz = ActiveSheet.HPageBreaks.Count). Dann soll skaliert werden:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = pbAnz + 1
End With

Hier der Code:
-------------------------------------------------------------------------------

Sub tel()
Dim z As Integer, pbAnz As Integer

ActiveSheet.Cells.ClearFormats
ActiveSheet.ResetAllPageBreaks

'Anzahl Personen
z = 2
Do Until (ActiveSheet.Cells(z, 1) = "")
    z = z + 1
Loop
z = z - 2

'sortieren
ActiveSheet.Range(Cells(2, 1), Cells(z + 1, 9)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, OrderCustom:=1, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal

'Format
With ActiveSheet.Range(Cells(1, 1), Cells(1, 9)).Font
    .Name = "Arial"
    .Size = 16
    .Bold = True
End With

With ActiveSheet.Range(Cells(1, 1), Cells(z + 1, 9)).Font
    .Name = "Arial"
    .Size = 12
End With

With ActiveSheet.Range(Cells(1, 1), Cells(1, 9)).Borders
    .LineStyle = xlContinuous
    .ColorIndex = 1
    .Weight = xlThick
End With

With ActiveSheet.Range(Cells(2, 1), Cells(z + 1, 9)).Borders
    .LineStyle = xlContinuous
    .ColorIndex = 1
    .Weight = xlMedium
End With

With ActiveSheet.Cells
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With

ActiveSheet.Range(Rows(1), Rows(z)).AutoFit
ActiveSheet.Range(Columns(1), Columns(9)).AutoFit

With ActiveSheet.PageSetup
    .Orientation = xlLandscape
    .PrintTitleRows = "$1:$1"
End With

pbAnz = ActiveSheet.HPageBreaks.Count

With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = pbAnz + 1
End With

ActiveSheet.Cells(z + 3, 1).Activate

End Sub

------------------------------------------------------------
Ich bekomme es einfach nicht hin...

Vielen Dank für die Hilfe im Voraus!!
Viele Grüße, Jörg

  

Betrifft: AW: Skalierung geht nicht von: Rudi Maintaire
Geschrieben am: 14.11.2012 11:32:36

Hallo,
Es sollen die horizontalen Seitenumbrüche gezahlt werden
Wozu? Das geht doch auch automatisch.

With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
End With

Gruß
Rudi


  

Betrifft: AW: Skalierung geht nicht von: Jörg
Geschrieben am: 14.11.2012 21:30:36

Hallo Rudi,

vielen, vielen Dank!!!

Jetzt klappt es endlich und ich habe wieder etwas gelernt.

Viele Grüße,

Jörg