Seite einrichten ???

Bild

Betrifft: Seite einrichten ???
von: Thomas H.
Geschrieben am: 09.12.2003 09:04:33

Hallo NG!

Ich habe eine Tabelle die entweder bis Zeile 50 oder Zeile 250 geht.
Ist es nun möglich abhängig von der Zeilen anzahl zwischen Hochformat und Querformat automatisch zu wechseln ?
Bei Zeile 50 = Querformat
Bei Zeiel 250 = Hochformat ...


Geht das, und wenn ja wie ???

Danke für eure hilfe, TH

Bild


Betrifft: AW: Seite einrichten ???
von: Nike
Geschrieben am: 09.12.2003 09:15:23

Hi,
mal so ausprobieren:


Sub Seiteneinsteller()
Dim lngZeil As Long
Dim wks As Worksheet
Set wks = Worksheets(1)
lngZeil = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
If lngZeil <= 50 Then
    With wks.PageSetup
        .Orientation = xlLandscape
    End With
Else
    With wks.PageSetup
        .Orientation = xlPortrait
    End With
End If
End Sub


Bye

Nike


Bild


Betrifft: AW: Seite einrichten ???
von: Thomas H
Geschrieben am: 09.12.2003 09:22:00

Danke für deine Hilfe,

TH


Bild

Beiträge aus den Excel-Beispielen zum Thema " UserForm starten ohne Excel-Sheet"