Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zoom über Schalter

Zoom über Schalter
28.06.2005 15:52:50
Sandra
Hallo zusammen,
wer kann mir helfen?
Ich möchte in einem Excel-Blatt einen Schalter einbauen, mit dem ich größer und kleiner zoomen kann. Ich stelle mir das so wie in der Seitenansicht vor, einmal klicken - größer, noch einmal klicken - kleiner.
Mit zwei Schaltern (einen für 100% und einen für 85%) hab ich´s schon hingekriegt.
Wär toll wenn mir jemand helfen könnte.
Vielen Dank im voraus.
Gruß Sandra

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

Betreff
Datum
Anwender
Anzeige
AW: Zoom über Schalter
28.06.2005 16:07:33
Herbert
hallo Sandra,
so:

Sub zZoom()
With ActiveWindow
If .Zoom = 85 Then
.Zoom = 100
Else
.Zoom = 85
End If
End With
End Sub

gruß Herbert
AW: Zoom über Schalter
28.06.2005 16:11:58
Uduuh
Hallo,
etwa so:
select case activewindow.zoom
case is &lt100
activewindow.zoom=100
else
activewindow.zoom=85
end select
Gruß aus'm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige