Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle an Monitor grösse anpassen

Betrifft: Tabelle an Monitor grösse anpassen von: Marion K.
Geschrieben am: 13.09.2004 09:17:10

Hallo, und einen schönen guten Morgen Experten.

Eine Frage gibt es einen VBA Code der die Grösse der Tabelle automatisch an die vorhandenen Monitor anpasst.

Problem: Meine Exceldat. wird wechselnt auf verschiedenen Rechnern eingesetzt da ergibt sich manchmal das die Anzeige zu gross oder zu klein dargestellt wird.Und muss dan manuell korrigiert werden.

Habe schon in der Recherche gesucht ,habe aber nichts gefunden.

Gruss Marion

  


Betrifft: AW: Tabelle an Monitor grösse anpassen von: RALF
Geschrieben am: 13.09.2004 09:35:52

Moin,

benenne den Bereich, der sichtbar sein soll.
dann in die Auto_Open Prozedur folgenden code

Application.Goto reference:="Bereichsname"
Activewindow.Zoom = True

Gruß RALF


  


Betrifft: AW: Tabelle an Monitor grösse anpassen von: Marion K.
Geschrieben am: 13.09.2004 09:53:49

Hallo, danke für die Hilfe nur noch ein Probl. mit der UF. ansonsten alles o.K


Gruss Marion


  


Betrifft: AW: Tabelle an Monitor grösse anpassen von: Marion K.
Geschrieben am: 14.09.2004 10:48:30

Hallo, danke für die Hilfe nur noch ein Probl. mit der UF. ansonsten alles o.K


Gruss Marion


  


Betrifft: AW: Tabelle an Monitor grösse anpassen von: WernerB.
Geschrieben am: 13.09.2004 09:40:49

Hallo Marion,

wie gefällt Dir das?
Sub Marion()
Dim Adr As String
    On Error Resume Next
    Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
      Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address
    If Adr = "" Then Exit Sub
    On Error GoTo 0
    Range("A1:" & Adr).Select
    ActiveWindow.Zoom = True
    Range("A1").Select
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


  


Betrifft: AW: Tabelle an Monitor grösse anpassen von: Francis
Geschrieben am: 17.09.2004 21:12:03

Vorschlag:
Du brauchst 2 Buttons : 1 "+" und ein "-" im enstprech. Arbeitsblatt setzen und wie folgt aktivieren:
'-----------------------------------------------
Private Sub cmdPlus_Click()
Vergrössern
End Sub

'
Private Sub cmdMinus_Click()
Verkleinern
End Sub

'----------------------------------------------------
Die 2 nächsten Subs unter "Module" setzen
Sub Vergrössern()
Grösse = ActiveWindow.Zoom
If Grösse > 200 Then
Grösse = 200
End If
ActiveWindow.Zoom = Grösse + 5
End Sub
'
Sub Verkleinern()
Grösse = ActiveWindow.Zoom
If Grösse < 50 Then
Grösse = 50
End If
ActiveWindow.Zoom = Grösse - 5
End Sub
---------------------
Falls Du es nicht verstanden hast, kannst Du auch die Funktionsweise gerne testen. Gehe auf meine Homepage "www.Vereinsmayer.de" und lade meine kostenlose Vereinsverwaltung herunter (virenfrei selbstsverständlich).

Tschüss!

Francis


 

Beiträge aus den Excel-Beispielen zum Thema "Tabelle an Monitor grösse anpassen"