Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zoom als schleife

zoom als schleife
01.07.2003 02:07:25
mehmet
hallo forum
wie bekomme ich folgende zoom_in schleife korrigiert:
Dim zi
For zi = 100 To 25 step 5
ActiveWindow.Zoom = zi
Next zi
dank im voraus
gruss

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

Betreff
Datum
Anwender
Anzeige
AW: zoom als schleife
01.07.2003 05:05:27
PeterW
Hallo Mehmet,
wenn der Schleifenzählere rückwärts laufen soll dann muss es heißen:
For zi = 100 to 25 Step - 5
Gruß
Peter

AW: zoom als schleife
02.07.2003 21:13:31
mehmet
hallo peter
dank dir für deine lösung
meine schleife funktioniert nicht
weder zoom_in noch zoom_out
warum?
herzliche grüsse
mehmet

AW: zoom als schleife
03.07.2003 11:43:18
PeterW
Hallo Mehmet,
der folgende Code läuft problemlos. Hast du vielleicht ScreenUpdating auf False gesetzt?
Gruß
Peter

Sub ZoomAus()
Dim zi
For zi = 100 To 25 Step -5
ActiveWindow.Zoom = zi
Next zi
End Sub


Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige