Microsoft Excel

Herbers Excel/VBA-Archiv

Range("A:B").Select ActiveWindow.Zoom = True | Herbers Excel-Forum


Betrifft: Range("A:B").Select ActiveWindow.Zoom = True von: Claudia
Geschrieben am: 13.01.2012 07:10:55

Hallo!

Eine Frage an die Experten:

Geht folgender Code auch ohne zu selectieren?

Range("A:B").Select
ActiveWindow.Zoom = True

Danke u. Gruß
Claudia

  

Betrifft: AW: Range("A:B").Select ActiveWindow.Zoom = True von: Josef Ehrensberger
Geschrieben am: 13.01.2012 07:20:10


Hallo Claudia,
ActiveWindow.Zoom = True
reicht vollkommen.




« Gruß Sepp »



  

Betrifft: AW: Range("A:B").Select ActiveWindow.Zoom = True von: MatthiasG
Geschrieben am: 13.01.2012 07:38:05

Hallo Sepp,

das reicht m.E. nicht, denn mit dem Befehl wird das Fenster auf die aktuelle Auswahl gezoomt.
Es sei denn, die Auswahl ist bereits getroffen.

Gruß Matthias


  

Betrifft: Na gut, aber so hab ich das ... von: Josef Ehrensberger
Geschrieben am: 13.01.2012 07:44:33


... gar nicht gesehen, ich brauch wohl noch einen starken Kaffee.

Hast natürlich recht, Matthias.




« Gruß Sepp »



  

Betrifft: AW: Na gut, aber so hab ich das ... von: Claudia
Geschrieben am: 13.01.2012 08:08:40

Hallo beiden,

also ohne Select keine Auswahl, wenn ich richtig verstehe?

Gruß
Claudia


  

Betrifft: AW: Na gut, aber so hab ich das ... von: MatthiasG
Geschrieben am: 13.01.2012 08:21:07

Hallo Claudia,

also ohne Select keine Auswahl, wenn ich richtig verstehe?
genau, und ohne yes kein ja ;-)

im Ernst: irgend ein Bereich ist immer ausgewählt auf dem Tabellenblatt. Die Methode .Zoom = True dient zur Anpassung des Zoomfaktors auf den ausgewählten Bereich.
Wenn Du statt "True" eine Zahl einsetzt, wird der Zoomfaktor auf die entsprechende Prozentzahl gesetzt.

Um die ursprüngliche Auswahl zu behalten, kannst du diesen Code verwenden:

Sub ZoomSetzen()
Dim s As Range
Application.ScreenUpdating = False
Set s = Selection 'Auswahl merken
ActiveSheet.Range("A:H").Select
ActiveWindow.Zoom = True
s.Select 'Auswahl wiederherstellen
Application.ScreenUpdating = True
End Sub
Gruß Matthias


  

Betrifft: AW: Na gut, aber so hab ich das ... von: Claudia
Geschrieben am: 13.01.2012 08:30:32

Hallo Matthias,

danke für die Ausführungen. Ich werde mit der alten Methode weiterleben.

Gruß
Claudia