Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excelfenster anpassen!

Excelfenster anpassen!
19.10.2005 11:24:32
Holger
Hallo zusammen,
wie kann ich das Excelfenster anpassen?
So klappt es nicht:
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = 500
End With
Möchte das Excelfenster in der kompletten Höhe des Bildschirms, aber nur in 3/4 der Breite darstellen. Es soll Oben links anfangen.
Danach soll das Fenster nicht mehr verschiebbar sein. Geht das?
MfG
Holger Wächter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excelfenster anpassen!
19.10.2005 11:50:37
Werner
Hallo Holger
Vielleich so ...

Sub TEST()
ActiveWorkbook.Unprotect
x = 500
y = x / 4 * 3
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 1
.Left = 1
.Width = x
.Height = y
End With
ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub

Gruss Werner
AW: Excelfenster anpassen!
19.10.2005 12:17:04
Holger
Vielen dank,
konnte es nun umsetzen.
MfG
Holger Wächter
Danke für die Rückmeldung OT:-)
19.10.2005 12:18:24
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige