Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excelfenstergröße und Position

Excelfenstergröße und Position
03.06.2008 08:02:50
Werner
Hallo!
Ich habe folgendes Problem und finde keine Lösung:
Ich will, dass excel sich beim öffnen meiner Datei so auf dem Monitor positioniert, dass es nur die Hälfte des Bildschirms von der Mitte bis zum rechten Rand ausfüllt.
Links soll das Programm dahinter frei bleiben, da ich dort Daten ablesen muss.
Geht sowas?
Gruß und Danke
Werner

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excelfenstergröße und Position
03.06.2008 08:23:14
UweD
Hallo
evtl. gibt es eine einfachere Möglichkeit...
Hier mein Versuch:

Private Sub Workbook_Open()
Dim H&, W&
With Application
.ScreenUpdating = False
.WindowState = xlMaximized
'Ermittlung der Maxwerte
H = .Height
W = .Width
.WindowState = xlNormal
.Width = W / 2
.Left = W / 2
.Top = 0
.Height = H
.ScreenUpdating = True
End With
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application .WindowState = xlMaximized
End Sub


- dazu den VB-Editor öffnen (Alt+F11)
- falls der Project-Explorer nicht erscheint, Strg+R
- doppelclick auf DieseArbeitsmappe
- beide Codeteile reincopieren
Gruß UweD

Anzeige
AW: Excelfenstergröße und Position update
03.06.2008 08:25:50
UweD
Hallo nochmal
ein Leerzeichen zu viel
so muß es sein:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.WindowState = xlMaximized
End Sub


AW: Excelfenstergröße und Position update
03.06.2008 09:23:09
Peter
Hallo Uwe
Wenn ich mich da auch noch melden darf:
Finde diesen Code auch hilfreich. Weisst du auch, wie ich auf den nicht benutzten Bereich des Bildschirms (also den linken Teil) die VBA-Umgebung hole?
Gruss, Peter

Anzeige
AW: Excelfenstergröße und Position update
03.06.2008 09:49:37
Werner
Klasse!
Genau so!!!
Vielen Dank!!!

AW: Excelfenstergröße und Position update
03.06.2008 10:10:13
UweD
Hallo Peter
sorry dazu fällt mir nichts ein.
Gruß UweD

AW: Excelfenstergröße und Position update
03.06.2008 10:13:00
Peter
Hallo Jens
Ich habs in der Zwischenzeit herausgefunden (habe dieses Fenster rechts angeordnet, da bei mir Excel links erscheinen soll).
Gruss, Peter

Sub VBE_einblenden()
Dim H&, W&
Application.VBE.MainWindow.Visible = True
With Application.VBE.MainWindow
.WindowState = vbext_ws_Maximize
H = .Height
W = .Width
.WindowState = vbext_ws_Normal
.Width = W / 2
.Left = W / 2
.Top = 0
.Height = H
End With
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige