Anzeige
Archiv - Navigation
1264to1268
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
"Autofit" für Fenster
Jörg-HH
...gleich nch 'ne Frage:
Gibt es sowas Ähnliches wie Autofit auch für ein Fenster?
Ich möchte ein Fenster öffnen, das den Bereich zB von Spalte A bis Z zeigt, aber es können einige Spalten dazwischen ausgeblendet sein oder auch nicht. Das Fenster soll aber immer nur so breit sein, wie es für die sichtbaren Spalten zwischen A und Z braucht.
Jörg

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: "Autofit" für Fenster
24.05.2012 21:40:05
Josef

Hallo Jörg,
eine der wenigen Ausnahmen bei der man .Select benötigt.
Sub zoomIn()
  Dim rng As Range
  Set rng = ActiveCell
  Range("A:Z").Select
  ActiveWindow.Zoom = True
  rng.Select
  Set rng = Nothing
End Sub




« Gruß Sepp »

Anzeige
fast...
24.05.2012 22:03:55
Jörg-HH
Hallo Sepp
nun krieg ich riesige Buchstaben
Application.Goto Range("BI1"), Scroll:=True
With ActiveWindow
.Height = 203.10447761194
End With
Dim rng As Range
Set rng = ActiveCell
Range("BI:BP").Select
ActiveWindow.ZOOM = True
rng.Select
Set rng = Nothing
Wie könnte ich bewirken, daß das Fenster die selektierten Zelle mit Zoom 100% zeigt und dann die Fenstergröße entsprechend anpaßt?
Jörg
AW: fast...
25.05.2012 07:28:26
R.Przybilla
Hallo Jörg,
probier mal das
die +100 musst du ausprobiern, wie das bei dir aussieht
Sub FitToScreen()
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 0
.Left = 0
End With
ActiveWindow.Zoom = 100
ActiveWindow.Width = Range("A:Z").Width + 100
End Sub
Gruß Ralf
Anzeige
AW: fast...
25.05.2012 07:46:12
Reinhard
Hallo Jörg,
vllt. so:
Sub zoomIn()
Application.Goto Range("BI1"), Scroll:=True
Dim Soll As Single, rng As Range
With ActiveWindow
.WindowState = xlMaximized
.Zoom = 100
Soll = Range("BR1").Left - Range("BI1").Left
.WindowState = xlNormal
.Height = 203.10447761194
If .UsableWidth 

Gruß
Reinhard
Danke an alle...
26.05.2012 13:58:19
Jörg-HH
...das hilft mir, ohne Langeweile die Pfingsttage zu überstehen :-))
J.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige