Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
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
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zoom für fast alle Blätter einstellen

VBA Zoom für fast alle Blätter einstellen
07.06.2015 16:53:31
WalterK
Hallo,
Wie kann ich beim folgenden Makro die Blätter "Apfel" und "Birne" vom Zoom ausnehmen, dort soll sich also beim bereits eingestellten Zoom nichts ändern.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 80
End Sub
Besten Dank und Servus, Walter

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Zoom für fast alle Blätter einstellen
07.06.2015 16:58:00
Sepp
Hallo Walter,
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If IsError(Application.Match(Sh.Name, Array("Apfel", "Birne"), 0)) Then
    ActiveWindow.Zoom = 80
  End If
End Sub

Gruß Sepp

Anzeige
AW: VBA Zoom für fast alle Blätter einstellen
07.06.2015 16:58:43
Daniel
HI 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case "Apfel", "Birne"
Case Else
ActiveWindow.Zoom = 80
End Select
End Sub
Gruß Daniel

Besten Dank an beide Helfer. Servus Walter
07.06.2015 19:10:16
WalterK

309 Forumthreads zu ähnlichen Themen

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

Hallo!
Eine Frage an die Experten:
Geht folgender Code auch ohne zu selectieren?
Range("A:B").Select
ActiveWindow.Zoom = True
Danke u. Gruß
Claudia
13.01.2012 07:20:10
Thread-ID: 1245963
7 Beiträge
Anzeige
Zoom automatisch an Bildschirmeinst. anpassen?
Michi

Hi Leute,
folgendes Problem: Ich habe ein Planungstool mit diversen Tabellenblättern erstellt. Die einzelnen Planungsseiten sind so eingerichtet, dass Sie immer
genau auf eine Bildschirmseite passen, ohne dass der anwender scrollen muss.
Dies klappt aber natürlich nicht mehr, wenn d...
28.09.2005 17:01:52
Thread-ID: 673969
6 Beiträge
Auf jedem Tabellenblatt zurück in A1 springen
Bernd

Hallo,
ich habe mehrere Tabellenblätter und möchte, nachdem ich nachfolgende Module ausgeführt habe, daß auf jedem Tabellenblatt wieder A1 die aktive Zelle ist. Derzeit ist bei mir immer D7 aktiv.
Modul 1: Hier wird die Kopfzeile erstellt
Sub KopftextLinks() Dim i As Long Dim Blat...
20.02.2009 10:58:00
Thread-ID: 1052384
3 Beiträge
Anzeige
Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Passworte für alle Blätter
Bernd

Hallo,
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code g...
04.09.2009 18:22:14
Thread-ID: 1100680
3 Beiträge
Datenbereich bei Diagramm über mehrere Blätter
Alexander

Hallo zusammen,
wollte ein Diagramm erstellen, dessen Datenbereich sich über mehrere Tabellenblätter erstreckt. In das Feld Datenbereich hätte ich dann folgendes geschrieben (=Tabelle1!$A$1:$B$3;Tabelle2!$C$1:$D$3). Dann erhielt ich die Fehlermeldung: "Verweis ist ungültig."
Gibt es da...
28.10.2009 21:08:45
Thread-ID: 1112759
3 Beiträge
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
5
2
5
2
4
2
2
10
4
3
5
2
2
1
3
8
7
1
2
2
3
3
7